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DYNGEN - A PROGRAM FOR CALCULATING STEADY-STATE AND TRANSIENT 
PERFORMANCE OF TURBOJET AND TURBOFAN ENGINES 
by James F. Sellers and Carl J. Daniele 
Lewis Research Center 

SUMMARY 

This report describes DYNGEN, a digital computer program for analyzing the 
steady-state and transient performance of turbojet and turbofan engines. DYNGEN is 
based on earlier computer codes (SMOTE, GENENG, and GENENG E) which are capable 
of calculating the steady- state performance of turbojet and turbofan engines at design 
and off-design operating conditions. DYNGEN has the combined capabilities of GENENG 
and GENENG II for calculating steady-state performance; to these have been added the 
further capability for calculating transient performance. DYNGEN can be used to ana- 
lyze one- and two-spool turbojet engines or two- and three-spool turbofan engines with- 
out modification to the basic program. The user needs only to supply appropriate com- 
ponent performance maps and certain design-point information. 

DYNGEN uses a modified Euler method to solve the differential equations which 
model the dynamics of the engine. This modified Euler method is significantly different 
from the numerical integration methods which have typically been used in all-digital 
transient engine simulations. The major advantage of this new method is that it frees 
the programmer from having to minimize the number of equations which require itera- 
tive solution. As a result, some of the approximations normally used in transient en- 
gine simulations can be eliminated. This tends to produce better agreement when an- 
swers are compared with those from purely steady-state simulations. The modified 
Euler method also permits the user to specify large time steps (about 0. 10 sec) to be 
used in the solution of the differential equations. This saves computer execution time 
when long transients are run. However, convergence problems are sometimes encoun- 
tered with DYNGEN when small time steps (less than 1 msec) are used. A further dis- 
cussion of the advantages and disadvantages of the modified Euler method is included in 

this report. 

The intent of this report is to describe DYNGEN to make it useful for other re- 
searchers. A complete FORTRAN program listing is included in an appendix. Exam- 
ples of the use of the program are included in the report, and program results are com- 
pared with those from an existing hybrid-computer simulation of a two-spool turbofan. 



INTRODUCTION 


Computer programs which predict the performance of theoretical turbojet and 
turbofan engines have long been recognized as valuable tools for preliminary and detail 
design work. Digital computer codes such as SMOTE (refs. 1 and 2), GENENG (ref. 3), 
and GENENG II (ref. 4) now enable the user to analyze the steady-state performance of * 
a wide variety of engines simply by providing component performance maps and other 
pertinent data; the task of writing a new computer program for each engine configura- 
tion is largely eliminated. 

GENENG and GENENG II (herein referred to simply as '’GENENG”) are only capa- 
ble of calculating steady- state engine performance. However, the need to predict the 
transient performance of turbojet and turbofan engines is becoming more important in 
preliminary design. Thrust response requirements are becoming more stringent, es- 
pecially for V/STOL aircraft, and the need to meet transient performance criteria can 
have a significant effect on overall engine design. As engines grow more complex, 
their control systems assume a greater importance, and this importance further implies 
the need for good transient performance prediction during preliminary design. 

Digital, analog, and hybrid computer methods are available for use in generalized 
computer codes for transient engine analysis. Each approach has its merits, and no 
consensus exists as to which is the best method. The major advantage of analog and 
hybrid methods is the use of electronic amplifiers for integrating the differential equa- 
tions which model the dynamics of the engine. Digital engine simulations have, in the 
past, used time-consuming numerical integration techniques, which can result in pro- 
hibitively long execution times. A disadvantage which digital, analog, and hybrid simu- 
lations have traditionally shared is the need to minimize the number of equations which 
require iterative solution. Such equations are to be avoided, either because an analog 
computer cannot easily solve them or because they take too long to solve in connection 
with a digital integration algorithm which may require thousands of passes through the 
engine modeling equations. Transient engine simulations usually resort to assumptions 
and approximations in an effort to avoid iterative solution procedures. As a result, 
their steady-state solutions tend to disagree with the solutions produced by purely 

steady-state programs, such as GENENG, which are written without any prohibition on 
iterative solution methods. 

Despite the difficulties just mentioned, progress has been made in developing tran- 
sient simulations which, like GENENG, can handle many engine configurations without 
changing the basic computer program. The HYDES program for hybrid computers 
(ref. 5) has proven to be a flexible tool for preliminary control studies on a wide variety 
of engine types. HYDES uses electronic amplifiers for integration and digital subrou- 
tines for most of the function generation and algebraic computations. 
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This report describes a digital computer program, DYNGEN, which enables the 
user to analyze the transient performance of many engine configurations and which also 
eliminates some of the problems frequently connected with all-digital transient simula- 
tions. DYNGEN solves the system of differential equations by a method substantially 
different from the forward- difference integration techniques frequently used in digital 
engine simulations. The new method used by DYNGEN is similar to the well-known 
Euler method of solving differential equations and will be called the "modified Euler 
method. " It gives the analyst great freedom in selecting the equations needed to de- 
scribe the system and eliminates the discrepancies which often occur between answers 
generated by transient and steady-state simulations. In fact, DYNGEN is a direct 
modification of GENENG and, although the capability to perform transient calculations 
has been added, none of the steady-state capabilities of GENENG have been sacrificed. 
Without modification to the basic program, DYNGEN can be used to analyze one- and 
two-spool turbojets and two- and three-spool turbofans. Possible engine configurations 
are described in the next section of this report. Another section describes the modified 
Euler method of solving the system of differential equations and clarifies its advantages 
and disadvantages. Appendix A discusses the modified Euler method from a numerical 
analysis viewpoint. 

The program is written in FORTRAN IV and can be used without modification on any 
IBM 7094 Model 2 computer. With modifications, the program can be used on all com- 
puters that have a FORTRAN compiler. 

The iteration and integration techniques used in DYNGEN are described in appen- 
dix A. A complete program listing, flow chart, subroutine descriptions, and an exam- 
ple case are shown in a PP 3 ndix B. Appendix C explains methods of control system 
simulation, and appendix D provides debugging hints. For users who are already famil- 
iar with GENENG or GENENG II, appendix E enumerates the differences between 
DYNGEN and those programs. All symbols are defined in appendix F. 


ENGINE TYPES 

Before describing the analytical techniques used in DYNGEN, a brief discussion of 
engine types will be given to inform potential users of their options for analyzing differ- 
ent engine configurations. Since DYNGEN is derived from GENENG, the user is re- 
ferred to references 3 and 4 for a more detailed discussion of this subject. Figures 
1 to 11 show some of the engine types that can be analyzed. The three-spool, three- 
stream turbofan (type a, fig. 1) is the most complicated configuration; all other types 
are derived from it by changes to the calculation procedure inside the program. Input 
requirements for the various configurations are discussed in the section PROGRAM 
INPUTS. The one- spool turbojet (type k, fig. 11) is the simplest engine that can be 
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analyzed. In between configurations a and k are found such engines as the three- 
spool, two-stream turbofan (type d, fig. 4); the two-spool, two-stream turbofan (type e, 
fig. 5); and the two-spool, two-stream, aft-fan engine (type h, fig. 8). All the turbofan 
engines shown in figures 1 to 9 have separate core and fan ducts. If desired, the user 
may specify mixed flow, in which case fan and core flow will exhaust through a common 
nozzle. The user may also specify core duct or fan duct afterburning. 

The engines in figures 1, 2, 3, 6, and 7 have a third duct which is supplied with 
bleed air from the intermediate compressor. The third duct is referred to as the "wing 
duct" since it was originally intended to supply air for blown-flap or ejector-wing STOL 
aircraft. 


ENGINE MODELING TECHNIQUES 


DYNGEN was formed by directly modifying its predecessor, GENENG. Except for 
the addition of differential equations to model rotor and gas dynamics, the equations 
used in DYNGEN are identical to those used in GENENG. Therefore, the reader is re- 
ferred to references 3 and 4 for a detailed discussion of thermodynamic and component 
equations. The discussion in this report concentrates on how the programming tech- 
niques of GENENG were used to form a dynamic engine simulation and on the differential 
equations added to the analytical model. The modified Euler method of solving differen- 
tial equations is discussed from a numerical analysis viewpoint in appendix A. 


Steady-State Balancing Technique 

An example case is presented here to assist the reader in understanding how 
DYNGEN calculates engine steady-state operating points. For simplicity a turbojet en- 
gine is used in the example, but similar methods are used for more complicated config- 
urations. Figure 12 shows a turbojet engine with its major components labeled. Pres- 
sures P, temperatures T, and flows w are also labeled with appropriate station num- 
bers. The example illustrates how the calculation of variables proceeds through the en- 
gine. DYNGEN is written so that the user can select off-design points by specifying 
speed N, turbine inlet temperature T 4 , or fuel flow w f . In this example, fuel flow is 
assumed to be the specified variable. First, an inlet calculation is made to determine 
P 2 and T 2 from the free- stream values of pressure, temperature, and Mach number. 
In order to calculate w^, P 3 , and T^ from the compressor map (fig. 13) and thermo- 
dynamic relations, program-generated guesses are made for the values of speed N and 
pressure ratio P 3 /P 2 - Once w c , P 3 , and T 3 are obtained, the combustor calcula- 
tions for w^, P^, and T^ can be made by using the thermodynamic relations, the com- 
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bustor map (fig. 14), and the user-specified values for fuel flow w f and compressor 
bleed flow. In order to calculate turbine variables, the program generates another 
guess, this time for the value of turbine flow function w 4 y/T^/P 4 . Then, from the 
known value of n/Vt^, the turbine map (fig. 15) is used to calculate turbine work Ah 
and efficiency. The values of P 7 and T q are then calculated by using thermodynamic 
relations. Finally, the compressible-flow relations are used to calculate nozzle pres- 
sure P ? from Wg, T 7 , and user-specified values for P Q and nozzle area. 

The reader may have noticed that this calculation procedure is redundant; that is, 
certain variables can be calculated in more than one way. This fact is used to generate 
error variables, which must equal zero to yield a consistent solution of the equations. 

In developing a program such as DYNGEN, the analyst must choose what error vari- 
ables to use. This discussion simply points out the choices which were inherited by 
DYNGEN from its predecessors, GENENG and SMOTE. Experience has shown that 
these are good choices for most engine configurations. 

In the previous discussion it was stated that guesses were made for rotor speed N, 
compressor pressure ratio P 3 /P 2 , and turbine flow function From the 

first two guesses (and other variables) one may calculate the power absorbed by the 
compressor w c Ah c . From the turbine flow function (and other variables) one may 
calculate the power supplied by the turbine w^, Ahrp. For steady-state operation the 
power supplied must equal the power absorbed. Therefore, the difference w c Ah c - 
w T Ah T may be used for the first error variable. 

Similarly, one can calculate a value for turbine flow function P4)’ based 

only on the first two guesses, but for a consistent solution the calculated value must 
equal the guessed value. Hence, the difference (wj^T^/p^ - ( w 4 V^4/ P 4) can be 
used as the second error variable. 

Finally, from the compressible-flow equations, we know that the variable P ? is 
specified by the variables w g , T ? , P Q , and nozzle area A g . Since total conditions re- 
main constant throughout the nozzle, this value for P ? must equal the value P ? , which 
is calculated from the work and efficiency of the turbine and from adiabatic flow (with a 
specified pressure loss) in the duct between turbine and nozzle. Therefore, the third 
error variable is P 7 - P 7 - 

Once three variables have been guessed and three errors have been specified, the 
analyst can use an iterative method to obtain a consistent solution to the equations. 
SMOTE, GENENG, and DYNGEN all use the Newton- Raphson technique of iteration. 

The details of this method are given in appendix A. Although more complicated engines 
will require more guesses and more error variables in the iterative procedure, the 
analyses will be quite similar to the one described in this example. 
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Differential Equations 


So far the discussion has been devoted to the methods which DYNGEN uses to obtain 
steady-state operating points. Now the method of implementing and solving time- 
dependent differential equations is discussed. DYNGEN uses a modified Euler method 
of solving differential equations. This method is derived, from a numerical analysis 
viewpoint, in appendix A. Appendix A also discusses the numerical stability of the 
modified Euler method and shows that it does not require extremely small time steps to 
obtain a stable solution. Because it uses the modified Euler method, DYNGEN does not 
require small time steps to obtain a stable solution. However, DYNGEN sometimes ex- 
periences convergence problems for time steps less than about 1 millisecond. 

The ability to use large time steps (about 0. 10 sec) is an advantage in engine simu- 
lation since in the past it has often been necessary to select integration time steps small 
enough to guarantee stability for high-frequency dynamics typical of mass and energy 
storage in unsteady flow. This can result in very long execution times even though the 
simulation user may only be interested in low-frequency dynamics. With the modified 
Euler method the user can select larger time steps without worrying about numerical 
stability. 

The main disadvantage of the modified Euler method is that an iterative solution is 
required for the equations which approximate the solution to the differential equations. 
However, this fact turns out to be useful in DYNGEN since it means that the analyst no 
longer has to solve explicitly for derivatives. They may be embedded anywhere in an 
overall set of simultaneous algebraic equations which are to be solved by an iterative 
method such as Newton-Raphson. The following discussion shows how this advantage 
was employed in converting a steady- state simulation, GENENG, to a dynamic simula- 
tion, DYNGEN. In order to accomplish the conversion, three kinds of equations had to 
be modified to include dynamic terms: the power balance, continuity, and energy equa- 
tions. The steady-state power balance equation simply implies that the power output of 
a turbine must equal the power absorbed by a fan, a compressor, and their loads 


w T Ah T = w c Ah c + (HP) ext 


( 1 ) 


By adding a rotor acceleration term, the equation can be used to model engine dy- 
namics: any excess power provided by the turbine will go into rotor acceleration 


w T Ah,j, = Wq Ah c + 



IN — + (HP) 
dt 


ext 


( 2 ) 


If the time derivative is arbitrarily set equal to zero, the dynamic equation becomes the 
steady- state equation. Similar considerations also hold for the continuity equation 
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(3) 


w out = W in 


DYNGEN treats unsteady flow dynamics in a way which has become traditional for 
engine simulation: a control volume is associated with each component; and pressure, 
temperature, and density are assumed to be constant throughout the control volume. At 
steady state the flow into the volume must equal the flow out; but for unsteady flow, 
mass can be stored in the volume at a rate proportional to the time derivative of pres- 
sure dP/dt 


w 


out 


w in 


V dP 
yRT dt 


(4) 


If dP/dt is zero, the continuity equation reverts to its steady-state form. The control- 
volume approach is also used for the energy equation. At steady-state the rate of en- 
ergy into the volume must equal the rate out 

»out h out = *in h in (5 


In unsteady flow, energy storage is accounted for by two terms: one reflecting the rate 
of change of specific internal energy du/dt, and another reflecting energy storage 
caused by mass storage 


w out h out 


»in h in • (w m - w 


out 


, PV du 
)u 

RT dt 


( 6 ) 


The following discussion shows how these equations were used in DYNGEN. 

DYNGEN was formed from GENENG by modifying the power balance, continuity, and 
energy equations for major engine components. In GENENG the steady-state power 
balance equation was used to form an error variable 

Ej = w c Ah c - w T Ah T + (HP) ext 

In DYNGEN the same error is formed with the dynamic term added 

E 1 = Ah C + (~^j IN ^ Ah T + (HP) ext (8) 

In order to implement the dynamic forms of the continuity and energy equations, a vol- 
ume was associated with each component, and the flow and enthalpy out of the component 
were modified by the dynamic terms. 

For example, if w c is the flow rate through the compressor specified by the com- 
pressor map and h 3 is the enthalpy at the compressor exit, the flow and enthalpy enter- 


7 



ing the combustor will be given by w£ and hg, where 


/“NJ 



w C h 3 




- ' i C )u 3 - 


P 3 V 3 

RT„ 


dUg 

dt 


w 


* 

C 


The derivatives are calculated by the simplest possible approximation 


( 9 ) 


( 10 ) 


dy ^ y i " y j-l 
dt At 


(ID 


where y. is the current value of a variable and y._j is the value for the previous time 
step. This approximation is adequate provided that the time step At is no greater than 
one-tenth the magnitude of the smallest time constant the user wants to observe. A rea- 
sonable estimate for, say, a rotor time constant could be obtained by applying a step in 
main fuel flow as a disturbance. The rotor "time constant" would then be the time be- 
tween the application of the step and the point when rotor speed reached Nq + 0.63 AN, 
where Nq is the initial speed and Nq + AN is the final speed at the end of the transient 
In order to observe rotor dynamics with a time constant of 1.0 second, the user should 
use a At no greater than 0. 10 second. In selecting a value of At for a given engine 
simulation, some trial and error may be necessary to determine the optimum value of 
At. As mentioned earlier, At s smaller than 1 millisecond may cause convergence 
problems. 

Adding the derivative terms to the steady-state equations did not require any change 
to the basic iteration scheme used in GENENG. Therefore, none of the flexibility or 

generality of the program was lost; its capability was simply extended to include dy- 
namics. 


PROGRAM INPUTS 


DYNGEN requires four kinds of user-supplied information: 

(1) Component maps, which are supplied in the form of BLOCK DATA subprograms 

(2) Subroutines DISTRB, FCNTRL, and NOZCTR, which are dummies unless tran- 

sient operation is desired 
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(3) A list of desired output variables, which is read in on data cards supplied at 

execution time 

(4) Engine configuration data and operating point specification, which are read in at 

execution time on data cards by means of NAMELIST name $DATAIN 


Component Maps 


The components which are represented by maps in DYNGEN are the fan, intermedi- 
ate compressor, compressor, combustor, high-pressure turbine, intermediate-pressure 
turbine, low-pressure turbine, and afterburner. All these maps except the afterburner 
map are supplied in the form of BLOCK DATA subprograms; the afterburner map is in- 
cluded in subroutine ETAAB. DYNGEN is set up so that maps for all components are 
specified. Thus, if a single-spool turbojet is simulated, the BLOCK DATA for the com- 
ponents which are not used do not have to be deleted. This results in no errors in the 
calculations. Dummy maps for all components are supplied with the program. However, 
if storage space is a problem, the user may set up only the component maps which are 
needed and delete the space occupied by the other maps. Table I lists the component 
maps that must be supplied for each engine configuration. 

Choice of component maps - scaling laws . - Many engines that are studied by using 
DYNGEN are theoretical. Therefore, actual component maps for these engines do not 
exist. The program, however, does require component maps in order to do off-design- 
point calculations. In order to alleviate this problem, DYNGEN uses scaling laws to 
change data from one component map into a new component map. Hopefully, a compo- 
nent map can be found which could be expected to perform in a similar manner to the 
actual map for the engine being studied. In fact, most maps that the authors have ob- 
tained are identified as to the range of pressure ratio, airflow, etc., over which they 
are valid. Thus, a high-bypass-ratio fan map such as that from a CF-6 could be used 
to simulate other high- bypass -ratio fan maps. 

The scaling equations used for the compressor maps are 


PR 


^ PR ^design 1 

( PR ^map, design ” 



WA 


ETA 


(WA)design 
( WA ^map, design 
(ETA) ( j es ^g n 
(ETA) ma p, design 


x (WA) 


map 


x < ETA >map 
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In the output are printed the correction factors used in scaling the maps. The 
closer these values are to 1.0, the more reasonable are the simulated maps of the en- 
gine. Conversely, however, not being close to 1.0 does not necessarily mean that the 
simulation is poor since many maps have been shown to be typical over quite large 
ranges in the variables. 

BLOCK DATA input . - The three compressor performance maps are entered into 
the code as the BLOCK DATA subprograms BLKFAN, BLKINT, and BLKCMP. The 
subprograms supplied by the authors with the code and shown in appendix B are not to be 
taken as realistic maps. These maps are of an illustrative nature and are the ones used 
to run the sample calculations. 

As an example, by using subprogram BLKFAN (the first nine cards of which are 
printed here) and referring to a typical compressor map (fig. 13), the data are pro- 
grammed as follows: Card 1 reminds the reader that these maps are fictitious. Card 2 


AIBFTC BLKFAN OECK 

C THIS IS A GENERALIZED FAN MAP FOR UNREALISTIC SUPERSONIC ENGINE 
BLOCK DATA 

COMMON / FAN/CN(15>,RR(15,15>,MACI15,15),ETA<15,15),N,NP<15I 

DATA N,NP/10,6,3«7,5*10,8,5»0/ 

DATA . N/0.3t0.4,0.5t 0 . 6, 0. 7 ,0.8, 0.9, l.Oi 1. lii.2i$*0./ 

DATA ( PRC 1,J),WAC( l.JI.ETAI 61/ 

1 I. 00000, 243.600, 0.75592, 1.01200, 229.800, 0.76120, 

2 1.02800, 199.800, 0.76648, 1.03840, 166.800, 0.75592, 

3 1.04460, 133.200, 0.72512, 1.04800. 86.400, 0.64152/ 


identifies the subprogram as BLOCK DATA. Card 3 identifies common block FAN, into 
which data are to be stored, and dimensions the program variables. Card 4 indicates 
that there are 10 speed lines N and gives the number of points NP on each line (six 
on the lowest speed, seven on the next three lines, etc. ). Card 5 assigns the value of 
speed to each of the 10 lines (low to high). Cards 6 to 9 along the speed line CN=0. 3 
set the pressure ratio PR, corrected airflow WAC, and efficiency ETA in sets of three, 
going from low pressure (PR=1.0) to the surge line (PR=1.048). Note there are six sets 
of three values (NP(1)=6). The rest of the cards (appendix B) set the values for each 
speed line. 

The combustor map is also a BLOCK DATA subprogram (CMBDT). It is a plot of 
temperature rise across the combustor against efficiency for constant input pressure. 
Entry to the map is through temperature rise and input pressure, with efficiency being 
output. The cards in the subprogram CMBDT are reproduced here; a typical combustor 
map is shown in figure 14. The data are programmed as follows: Card 1 identifies the 
common block COMB, into which data are to be stored, and dimensions each variable. 
Card 3 indicates that there are 15 lines of constant PSI (P3) by the value of N and that 
there are 15 values of DELT (DT) and ETA (ETAB) along each line of constant PSI (P3). 
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SIBFTC CMBDr DECK 

BLOCK DATA l 

COMMON / COMB/PSI(l5),DELT(15,15),ETA(15,15),NiNP(15) 2 

DATA H,HP / 15 » 15*15 / 3 

DATA PSI/4.9116,9.8232,14.735,19.646,24.558, 29.470,34.381, 4 

139. 293 , 44 .2 07, 73.674, 100 •« 200. * 300. *400. * 500. / 5 

DATA 3ELT/ 15*200., 15*300. ,15*400., 15*500., 15*600., 15*700. *15*800., 6 

115*900., 15*1000., 15* 1100., 15*1200., 15*1300., 15*1400., 15*1500., 7 

215*1600./ 8 

DATA ETA/ 9 

1.600*. 726, .777, .806, . 826, . 843, . 855, .865, 7*. 870, 10 

2.758. . 825. .858. .875. .888. .898. .906* .912,. 914, 6*. 915, 11 

3. 868. . 893, .911, .925,. 935, .942, .947,. 951, 7*. 953, 12 

4.925.. 936, .946, .955, .963*. 969,. 974,. 977, .978, 6*. 979, 13 

5. 960.. 966.. 972.. 977. .982.. 985.. 990.. 992.. 993. 6*. 995, 14 

6. 988.. 991*. 992*. 994, .995, .997,. 998, 8*. 999, 15 

78*1. 00,7*. 999, 120*1.00/ 15 

ENO 17 


Cards 4 and 5 assign values to each of the P3 lines from low to high pressure. Cards 
6 to 8 assign values of AT to each of the P3 lines, starting at low AT. The lowest 
value of AT on each of the P3 lines is given, starting with the lowest value of AT on 
the lowest value of P3. Next comes the second lowest value of AT on each P3, etc. 
Again, this map is unrealistic, being used for illustrative purposes only. Cards 9 to 16 
assign the value of ? 7 g in a one-to-one correspondence with the AT values just as- 
signed. The order is the same. 

Also entered as BLOCK DATA subprograms are the turbine maps (HPTDAT, 
IPTDAT, and LPTDAT). In order to illustrate the entering of turbine data, LPTDAT 
is used. A typical turbine map is shown in figure 15; the data are programmed as 
follows: Card 1 identifies the subprogram as BLOCK DATA. Card 2 identifies common 


SIBFTC LPTDAT DECK 
BLOCK DATA 

COMMON / LTURB/TFFI15),CN( 15, 15), OHt 15*15) ,ETA(15,15),N«NP(15) 


DATA M,NP/il, 9*15, 12,9,4*0/ 


DATA TFF / 

88.470, 

102.795, 

116.835, 

129.330, 

141.045, 

1 

145.725, 

150.000, 

153.345* 

156.405, 

159.780, 

163.170 

DATA 1 CNC 1, 

J) ,DH( l. 

J ) , ETA( 1, 

J), J-1,15 

)/ 


1 

0.3582, 

0.0018, 

0.7120, 

0.5336, 

0.0026, 

0. 7300i 

2 

0.7365, 

0.0035, 

0.7472, 

0.9754, 

0.0044, 

0.7300 

3 

1.2146, 

0.0051, 

0.7140, 

1.4173, 

0.0056, 

0.7000 

4 

1.5201, 

0.0059, 

0.6850, 

1.7673, 

0.0061, 

0.6730 

5 

2 .3247 , 

0.0062, 

0.6452, 

2.2827, 

0.0061, 

0.6200 

6 

2.4665, 

0.0057, 

0.6000, 

2.6137, 

0.0053, 

0.5750 

7 

2.3166, 

0.0044, 

0.5310, 

2.9456, 

0.0035, 

0.5000 

8 

3.3138, 

0.0001, 

0.3850/ 





1 

2 

3 

5 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 


block LTURB, into which data are to be loaded, and dimensions the program variables. 
Card 3 indicates the number of constant turbine flow function lines TFF as 11 (N) and 
gives the number of points on each line from low to high TFF. Cards 4 and 5 set val- 
ues of corrected speed CN, work function DH, and efficiency ETA along TFF(l), 
starting from low CN (0.3682) and ending at high CN (3.3138). The rest of the cards 
set the values along higher TFF lines. 
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In many cases, turbine maps for high-performance engines operate at a choked con-, 
dition (constant TFF). Thus, a turbine map to be represented could possibly have no 
lines representing constant TFF for a significant portion of the map. For complete 
map representation, lines of constant TFF may be estimated on the map up to the limit 
loading line by inputting slight changes for the values of TFF (e.g. , if one line for TFF 
is 62. 105, the next may be input as 62. 108). This will eliminate computational difficul- 
ties which would arise if constant values for TFF lines were input. 

Generalized afterburner performance has been programmed into subroutine 
COAFBN. The afterburner performance map included in the program is shown in a gen- 
eralized form in figure 16(a). The performance map shows afterburner combustion ef- 
ficiency as a function of fuel-air ratio. The values of the afterburner combustion effi- 
ciency correction factors AETAA during off-design operation are shown as functions of 
afterburner entrance Mach number (fig. 16(b)) and afterburner entrance pressure (fig. 
16(c)). Other correction factors or performance maps may be added as desired. The 
afterburner efficiency, fuel-air ratio, inlet total pressure, and Mach number are gener- 
alized. 

A specific afterburner performance map is generalized by dividing the specific off- 
design value by the design value, as shown below. The symbols shown are the symbols 
used in the ETAAB subroutine, where the generalized and specific values are input. 

The generalized afterburner values are obtained as follows: 

Efficiency (ETABRT) = JIM 

ETAADS 

Fuel-air ratio (FART) = F^RT 

FARTDS 

Entrance total pressure (P6T) = ^ 

P6DS 

Entrance Mach number (EM6T) = . . 

AM6DS 

However, the correction factor for efficiency AETAA is not a generalized value. Also 
input in ETAAB are the following: 

(1) The change in efficiency as a function of EM6T is input as DELM6 (which is 
really AETAA = f(AM6)). 

(2) The change in efficiency as a function of P6T is input as DELP6 (which is 
really AETTA = f(P6)). 

At execution time for the design point, afterburner combustion efficiency ETAADS, 
exit total temperature T7DS, and entrance Mach number AM6DS design values are in- 
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put. Then design fuel-air ratio and entrance pressure ratio are calculated from the in 

put values and the other design engine characteristics. 

In order to achieve a reasonable accuracy in cycle calculations when using a gener- 
alized component map, the usage of the map should be limited within a certain range of 
the original design values and configuration changes. Therefore if, for example, an 
afterburner has a design task that differs significantly from an example used, a new 
performance map should be used in order to simulate the component more accurately. 

DYNGEN normally uses a single-point input for the nozzle velocity coefficients 
(CVMNOZ, CVDWNG, and CVDNOZ) when calculating engine performance. When de- 
sired, however, a map of nozzle velocity or thrust coefficients can be readily incorpor- 
ated, as in reference 3. 


Output Specification 

Data cards are supplied by the user, at execution time, to specify the names of de- 
sired output variables. Any variable that is in one of the main commons (ALL1, ALL2, 
etc. ) may be selected for output by punching, in columns 1 to 6, the name of the variable 
as it appears in the common. Up to 150 variables (25 lines of six variables) may be 
chosen for a particular run. During the output phase the name of the variable is printed 

out, with its value printed immediately below the name. 

Another feature of the controlled output is the ability to change the name of a varia- 
ble to be output; for example, it may be desired to change a station designation to one 
more common to a particular programmer. In this case, the variable name would be 
punched in columns 1 to 6 as described; but, in addition, the desired name would be 
punched in columns 13 to 18. Special symbols such as / may be used in the new name. 
The last card of the selected output must be a card with "THEEND" punched in columns 

1 to 6. 


Design-Point Specification 

The engine design point is specified by reading in data cards by means of NAMELIST 
name $ DATA IN. The design point is identified by setting IDES=1, and it must always be 
the first case run. Configuration specification (two-spool turbofan, one-spool turbojet, 
etc. ) is done at the design point. 

Table II contains a complete list of the variables that must be specified by the user 
at the design point for the 11 basic engines shown in this report. Table III contains fur- 
ther explanation of some of the program indices (MODE, INIT, IDUMP, etc. ) which the 
user may employ to control the operation of the program. 
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One significant difference between DYNGEN and its predecessors, SMOTE and 
GENENG, is the ability to use the International System of Units (SI). If input variable 
SI is . TRUE. , physical constants internal to the program will be set for SI units; if SI 
is . FALSE. , they will be set for U. S. customary units (English units). When SI is 
. TRUE. , most of the internal calculations are done in SI units, as opposed to simply 
leaving the internal calculations in English units and converting the input and output. 


Off-Design Operating Points 

So far the discussion has concentrated on specifying the engine design point. Once 
this has been done, the user has many options for running off-design points. These may 
be used to study steady-state performance, or they may be the initial conditions for 
transients. There are four basic modes for specifying off-design points: 

(1) MODE=0, specify a new turbine inlet temperature T4 

(2) MODE=l, specify a compressor rotational speed PCNC 

(3) MODE=2, specify a fuel flow rate WFB 

(4) MODE =3, specify a fan rotational speed PCNF 

The variables T4, PCNC, WFB, and PCNF have special significance because 
specifying any one of them also specifies the other three (assuming a fixed engine cy- 
cle). In addition to these variables, however, the user may specify any parameter 
which is not recalculated inside the program. Table IV contains all the variable names 
which may be changed for off-design points by using NAMELIST input. Table IV is not, 
however, an exhaustive list of variables which might be changed. For example, the 
user might want to vary low-pressure-turbine exit area A55 in order to determine its 
effect on engine performance. To do so he would only need to add A55 to NAMELIST/ 
DATAIN/ in subroutine PUTIN. The same procedure can be used for any variable the 
user wants to change, provided that the variable is not recalculated inside the program. 
There is no restriction on the number of variables which may be changed at one time 
(except for afterburning cases). For example, it would be permissible to change ALTP 
AM, ETAR, HPEST, A8, A28, and A38 all in one step. 

When calculating off-design points, DYNGEN needs an initial guess for the values of 
its iteration variables. Subroutine GUESS does the job of providing the guesses. How- 
ever, for some engines, GUESS will lead to trouble by causing map inputs that are out 
of range for the data provided or other similar problems. Variable INIT can be used to 
bypass GUESS. If INIT=0 , GUESS will be called; if INIT=1, GUESS will be bypassed 
and the last converged case will be used as the initial guess for the next case. Some-’ 

times INIT=1 can be used to solve for a point which has been causing convergence 
problems. 
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Transient Input 


In order to use DYNGEN’s transient capability, the user must provide additional 
NAMELIST input. Table V summarizes the variables which must be provided for each 
of the engine configurations discussed in this report. Except for ITRAN, the variables 
in table V may be input at any time; they do not affect program operation in the steady- 
state (ITRAN=0) mode. When the user inputs ITRAN=1, the next point will be the initial 
condition for a transient, and the program will print "TIME=0.0" above the output list- 
ing. From then on, until TIME exceeds TF, TIME will be incremented by DT before 
each point is calculated, and subroutine DISTRB will be called to provide time-varying 
input. The user must write subroutine DISTRB. For example, DISTRB might be used 
to provide a step in WFB to determine engine open- loop response. Examples of DISTRB 
are shown in appendixes B and C. DISTRB can be used to change any variable which is 
not recalculated inside the program, nor is the user restricted to the variables in 
NAMELIST. Table IV provides a reasonably complete list of possible time-varying in- 
puts. The user should not, however, input a time- varying T4 (when MODE=0) unless 
VCOMB=0.0. If VCOMB is nonzero, T4 will be recalculated and the user-supplied 
value will be overridden. Similarly, a time-varying T7 should not be input unless 
VAFTBN=0.0, and a time-varying T24 should not be input unless VFDUCT=0.0. 

DISTRB should contain COMMON blocks ALL1, ALL2, etc., as required to communi- 

cate new values to the rest of the program. 

DYNGEN also provides for user-written versions of subroutines FCNTRL (main 
fuel control) and NOZCTR (controlled A8). When ITRAN=1, FCNTRL is called by 
COCOMB (if MODE=2) and NOZCTR is called by COMNOZ. Appendix C contains exam- 
ples of FCNTRL and NOZCTR. A set of general-purpose control system subroutines is 
also discussed in appendix C. The user may employ these to write his own control sub- 
routines. 


EXAMPLE CALCULATIONS 

In order to show DYNGEN's capability, three examples are presented. The first 
example shows the response of a three-spool, three-stream turbofan (like the one shown 
in fig. 1) to an open-loop step in fuel flow. Figure 17 shows time histories of fan, mid- 
dle spool, and core speeds. Also shown is the response of turbine inlet temperature. 

All variables are presented as percentages of their design values. Complete input and 
output listings for this example are shown in appendix B. Apart from showing DYNGEN's 
capability to simulate a three-spool turbofan, figure 17 also demonstrates the effect of 
using different time steps in the modified Euler solution of the simulation equations. 

The results are shown for two time steps: 0. 01 and 0. 10 second. Close examination 
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shows some small differences between the two solutions, but they are substantially iden- 
tical. There is a big difference, however, in computer execution time to run the 3- 
second transient shown in figure 17. With the 0. 10-second time step, execution time 
was 1.4 minutes; with the 0.01-second time step, execution time was 12.3 minutes. 

This example demonstrates one of the main advantages of a modified Euler solution 
method: the user may select the time step to show the frequency range of interest. If 
low-frequency effects (less than 0.20 Hz), such as rotor dynamics, are the subject of 
interest, a time step of 0. 10 second may be adequate. If higher frequency effects, such 
as temperature and pressure dynamics, are to be observed, a time step as small as 
1 millisecond may be needed. Frequency ranges requiring a time step smaller than 
1 millisecond may result in convergence problems in DYNGEN. In any case, execution 
times can be held to a minimum that is compatible with the user’s interests. 

The next example shows a large throttle transient for a two- spool turbofan similar 
to the one shown in figure 5. This engine was simulated, along with the speed control 
system shown in figure 18. A listing of subroutine FCNTRL for this example is shown 
in appendix C. The primary input to the control system is demand speed XNLDEM, 
which is set by the pilot's throttle lever. The only output of the control system is fuel 
flow WFB, which goes to the combustor. During small throttle transients the control is 
proportional- plus -integral on speed error, but for large transients the control is closed 
loop on the acceleration fuel flow schedule. Acceleration fuel flow is computed from 
compressor speed XNHM, compressor exit pressure P3M, and compressor inlet tem- 
perature T21M. This moderately complex control system was simulated by using sub- 
routines that are compatible with DYNGEN’s modified Euler solution method. A throttle 
step from 50 percent thrust to 100 percent thrust was applied to the simulation, and the 
results are shown in figure 19. Time histories of turbine inlet temperature and thrust 
are shown, with the variables expressed as percentages of their design values. This 
figure also presents a comparison of DYNGEN’s results with those from a hybrid- 
computer simulation of the same engine. In figure 19, the continuous lines are the 
hybrid- computer solution and the discrete points are DYNGEN’s solution. The hybrid- 
computer model is quite detailed (ref. 5), but because of differences in the simulation 
equations, the steady- state results of the two simulations differ by about 3 percent. The 
differences in the dynamic solutions are of the same order. The comparison shown in 
figure 19, though not perfect, tends to confirm the validity of DYNGEN 's method of 
solving the differential equations used in modeling the engine and control system. Even 
though a fairly long time step of 0. 10 second was used, DYNGEN’s solution is quite 
similar to the continuous solution produced by the hybrid computer. 

The final example of DYNGEN’s flexibility involves a single-spool, afterburning 
turbojet similar to the one shown in figure 11. This type of engine requires exhaust 
nozzle and main fuel control subsystems as shown in figure 20. Listings of subroutines 
FCNTRL and NOZCTR for this engine are shown in appendix C. 
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The main fuel control is a simple proportional control on speed error with acceler- 
ation and deceleration fuel flow limiting. The main input is demand speed PCNFDM 
which is set by the pilot’s throttle. The acceleration schedule is the usual WFB divided 
by P3 as a function of PCNF, and the deceleration schedule is obtained simply by taking 
one-third of the acceleration schedule. The nozzle control is used only in the afterburn- 
ing mode of operation. Its purpose is to null out any change in compressor pressure 
ratio P3/P2 which might occur when going from nonafterburning to afterburning opera- 
tion. This is accomplished by proportional-plus-integral control of nozzle area A8 in 
response to pressure ratio error. 

This control system was simulated in connection with a turbojet engine, and a throt- 
tle slam from idle to full afterburning was applied. The results are shown in figure 21. 
Time histories of rotational speed, main fuel flow, afterburner fuel flow, nozzle area, 
and thrust are shown. All variables are presented as percentages of their design values. 
In order to simulate a throttle slam, afterburner fuel flow was ramped from zero to its 
maximum value in 2 seconds, beginning as soon as rotor speed reached 100 percent. 

The transient input for this example is shown in subroutine DISTRB (appendix C). 

This example shows that DYNGEN can be used successfully to simulate the dynam- 
ics of an afterburning engine. Furthermore, it demonstrates that DYNGEN is not limit- 
ed to small-perturbation problems. The 5-second transient shown in this example re- 
quired about 2 minutes of computer execution time on the IBM 7094. 


CONCLUDING REMARKS 

A generalized digital computer program for simulating the steady-state and dynamic 
performance of turbojet and turbofan engines has been described and discussed. This 
computer program, called DYNGEN, possesses significant advantages over many earlier 
methods of digital engine simulation. Specifically, it eliminates the need to operate two 
separate computer programs to obtain steady-state and dynamic results. It uses a modi- 
fied Euler method for solving differential equations, which enables the user to specify 
long solution time steps if only low-frequency information is required. This saves com- 
puter execution time when long transients are to be run. A limitation of DYNGEN is that 
it sometimes experiences convergence problems when small time steps (less than 1msec) 
are used. Finally, DYNGEN can simulate a wide variety of engine types without repro- 
gramming. This saves money and man-hours when new engines are to be simulated. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, November 15, 1974, 

505-05. 
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appendix a 


ITERATION AND INTEGRATION TECHNIQUES 
Steady-State Balancing Technique 

The following discussion explains the iterative method which DYNGEN and its pre- 
decessor GENENG use to calculate steady-state operating points. As noted earlier, the 
calculation of a steady-state operating point requires solution of a system of nonlinear 
equations, corresponding to various engine matching constraints such as rotational 
speeds, airflows, compressor and turbine work functions, and nozzle flow functions. In 
order to satisfy these constraints, there are available an equal number of engine param- 
eters which may be varied, such as compressor and turbine pressure ratios and flow 
functions. The specific number of engine parameters (independent variables) to be var- 
ied and engine error variables (dependent variables) to be satisfied depends on the type 
of engine configuration being studied and varies from three for a single-spool turbojet 
engine to nine for a three- spool engine. DYNGEN searches for the values of the engine 
parameters which result in the engine error variables being reduced to nearly zero. 

If the independent variables are denoted by Vj and the dependent variables by E., 
the matching equations can be written as 1 

Ei(Vj) = 0 i=l, 2,. . ., n 
j = 1, 2, . . . , n 

This is a set of nonlinear equations, which must be satisfied for a steady-state solution. 
The procedure used to satisfy these equations is the multivariable Newton-Raphson 
method (ref. 6). With this method, changes in E are assumed to be related to changes 
in V by first-order, finite-difference equations: 

AE = M AV 

where AV and AE are n-vectors denoting changes in V and E from some reference 
condition and M is an nxn matrix of partial derivatives of E with respect to V: 


The matrix M is obtained by calculating a reference case and n independent perturbed 
cases, such that only the j th variable V. is perturbed from its reference value on the 
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j** 1 case. Then for the j case, 


M.. « i = 1, 2, . . n 

J AV j 

Once the matrix M is obtained, the reference case is improved by using 

V = V r - M _1 E r 

If the system of equations were linear, this process would lead to convergence in one 
iteration. In practice, nonlinearities in the system prevent immediate convergence. In 
this case, the new V and E are taken to be the reference values, and a new matrix is 
generated. If the system is not too nonlinear and initial guesses for V are reasonably 
accurate, convergence is achieved in several iterations. 


Dynamic Equations 

Once an initial steady-state solution has been obtained, a time- varying solution may 
be generated. This requires the solution of a set of differential equations which model 
the system. The specific equations which are used to model the engine were discussed 
in the main text. In this section, the procedure used to solve the differential equations 

in DYNGEN is discussed. 

Consider first the differential equation 

dy,«y,t) (Al) 

dt 

In order to obtain a numerical solution on a digital computer, this differential equation 
must be replaced by a difference equation in such a way that the solution of the difference 
equation is, in some sense, close to that of the differential equation. There are many 
ways in which this can be done, as discussed, for example, in reference 6. A common 
method is to use a difference equation of the form 

y j+ i = yj + At [ ef (yj> V + (1 ' e)f(y j+i’ Vi^ (A2) 


where 


yj = y(*o + j At ^ 
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and 


0 < e < 1 


The bracketed quantity in equation (A2) represents a weighted average of the derivative 
f(y,t) over the integration interval [t.,t j+1 ]. For e = 1 , equation (A2) becomes 


'j+1 


y j + Atf(y j’V 


(A3) 


Equation (A3) is known as Euler’s method and allows explicit calculation of y. as a 
function of the previous values y^ and tj. On the other hand, for e / 1, equation (A2) 
is the modified Euler method. In general, it cannot be solved explicitly for y. 1 be- 
cause of the dependence of f on y^ which appears on the right side of the equation. 
In this case, some form of iteration must be used at each integration step to solve for 
y j+F 

From the standpoint of simplicity of the integration formula, use of equation (A3) 
is clearly preferable to use of equation (A2). However, there are two other important 
considerations: accuracy and stability. As discussed in the literature (e.g. , ref. 6) 
use of equation (A2) can lead to greater integration accuracy. Even more important for 
the dynamic engine simulation problem is the stability consideration. 

In order to illustrate the stability consideration, consider the linear differential 
equation 


dy 

— = ay 
dt 

For this equation, equation (A2) becomes 

y j+I - y, ♦ a atfy + (1 - €)y jtl ] 
which can be solved for y. ^ to give 

_ / 1 + ae At \ 




j+1 


1 + ae At - a At/ ^ 


the general solution for y. can be written 


where 


r = 


y, - rjy 0 


1 + ae At 
1 + ae At - a At 


(A4) 

(A5) 

(A6) 

(A7) 

(AS) 
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The original differential equation (A4) is stable for a < 0; the difference equation solu- 
tion, equation (A7), is stable for |r| < 1. From equation (A8) the requirements for sta- 
bility of equation (A7) can be established in terms of the requirements on integration 
step size At. Solving equation (A8) for At yields 


At 


1 - r 

a(er - r - e) 


(A9) 


The upper and lower bounds for At are obtained by setting r = ±1 in equation (A9). 

This results in 

At < - e>- (AlOa) 

a(l - 2e) 2 


At is unconstrained for e < — (AlOb) 

2 


In particular, for the Euler method (e = 1) the step size must be less than -2/a in order 
to avoid numerically induced instability. For e 1/2 the numerical method leads to a 
stable solution for any value of integration step size. 

These results are readily generalized to a system of linear differential equations. 
Consider the system of equations 


dZ = Ay (All) 

dt 

where y is an n-vector and A is the nxn system matrix. Use of the numerical algo- 
rithm in equation (A2) results in 

y j+l = y j + A At [ ey j + (1 " e)y j+l] (A12) 

which has the general solution 

y . = $jy 0 (A13) 

where 

$ = (I + Ae At - A At) _1 (I + Ae At) 

As shown in reference 7, equation (All) is stable if, and only if, the eigenvalues of A 
all have negative real parts; the difference equation solution (A13) is stable if, and only 
if, all the eigenvalues of $ have magnitudes less than unity. 

It will now be proved that if A is an eigenvalue of A, 
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(A14) 


[l - 1 + Ae At 

1 + Ae At - A At 

is an eigenvalue of 4>. Proof: Let A be an eigenvalue of A. Then 


If ^ is an eigenvalue of 4>, 


A - AI = 0 


$ - Ml =0 


I* - Ml I = | (I + Ae At - A At) -1 (I + Ae At) - jul| 

|(I + Ae At) - p(I + Ae At - A At) | 

1 1 + Ae At - A At | 

| (1 - M)( I + Ae At) + pA At I 


I + Ae At - A At I 


But from equation (A 14), 


1 - H = - 


so that 


1 + Ae At - A At 


1$ Ml | -A At(I + Ae At) + (1 + Ae At)At A 
(1 + Ae At - A At) 1 1 + Ae At - A At | 

At | A - AI | 

(1 + Ae At - A At) 1 1 + Ae At - A At I 


which completes the proof. 

The similarity of equations (A14) and (A8), together with the requirement that all 
eigenvalues p have magnitudes less than unity, allows the conclusion, similar to equa- 
tion (A10), that 


A (1 - 2e) 
max' ’ 


At is unconstrained for e < 1 


(A15b) 
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where A is the eigenvalue of A having the greatest magnitude. In particular, for 
max 

the Euler method the step size is restricted by 

At < - — — (A16) 

^max 


in order to avoid numerical instability. 

These results are valid only for a linear system, and no such general proofs are 
available for nonlinear systems. However, in an intuitive sense, it seems reasonable 
that equation (A16) would be applicable to nonlinear systems if the matrix A and eigen- 
values A were interpreted as ’’average" values over an integration step and if the sys- 
tem of equations (All) was not too nonlinear. 

The significance of equation (A16), particularly for the dynamic engine simulation 
problem, is the following: The dynamic engine simulation generally contains a mix of 
high and low frequencies. The high frequencies result from the lumped- volume repre- 
sentation of component dynamics, which includes the storage of mass and energy. The 
low frequencies result, for example, from rotor dynamics and the slow motion of the 
exhaust nozzle and its associated control logic. Frequently, the simulation user is in- 
terested in low-frequency effects, such as overall engine spool-up time, and is not con- 
cerned with high-frequency effects. Typical transients are 5 to 10 seconds in duration. 

If the simulation uses Euler's method, the integration step size is restricted by the 
highest frequency in the system, even though the user is not interested in high-frequency 
information. In this case, a step size of 10' 4 second, or smaller, is frequency re- 
quired. On the other hand, if an implicit (modified Euler) technique is used (e < 1/2), 
there is no upper bound on step size. It can be chosen to suit the desired frequency con- 
tent of the output, which typically allows a step size of 0. 1 second or larger. 


Iterative Solution Procedure 

A problem which exists with the use of implicit methods, as noted previously, is 
that for nonlinear differential equations some iterative scheme is required to solve for 
the values of y^ + 1 at each integration step. The differential equations corresponding to 
the dynamic model of the engine may be written as 

= f(y) (A17) 

dt 

where y and f are vectors. The state vector y represents pressures, temperatures, 
and rotor speeds. The dimension of y (and f) depends on the type of engine configura- 
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tion being studied. Nine state variables are required for a single-spool turbojet engine, 
and a greater number for more complex engines. 

The difference- equation representation used in DYNGEN utilizes e = 0, so that 
equation (A 17) becomes 


y j + l = yj + At f(y j+1 ) (A18) 

The discussion of the sample configuration in the main text of the report shows how the 
dynamic equations are incorporated into the structure of the steady-state solution. The 
steady-state continuity, energy, and power equations are modified to be dynamic equa- 
tions. The resulting dynamic equations are then either included as error equations or 
are used to calculate flows and enthalpies at various stations throughout the engine. 
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APPENDIX B 


DYNGEN PROGRAM 
Listing of DYNGEN 


$ I BFTC AFQUIR ^ 

SUBROUTINE AFQUIR ( X , A IND , DEP E KD « ANS, A J « TOL, D t R> ANEW » I CON ) 
DIMENSION X ( 9 ) 

C X ( 1 >= NAME OF ARRAY TO USE 
C A IND* INDEPENDANT VARIABLE 
C DEPEND* OE PENDANT VARIABLE 
C ANS=ANSWER UPON WHICH TO CONVERGE 
C A J =MAX NUMBER OF TRYS 

C TOL=PERCENT TOLERANCE FOR CONVERGENCE 
C D I R=D l R EC T ION AND PERCENTAGE FOR FIRST GUESS 
C ANEW=C ALCULATED VALUE OF NEXT TRY AT INDEPENDANT VARIABLE 
C I CON=C ONTROL =1 GO THRU LOOP AGAIN 
C =2 YOU HAVE REACHED THE ANSWER 

C =3 COUNTER HAS HIT LIMITS 

C X ( 2 >=C OUNT ER STORAGE 
C X<3)=CH00SES METHOD OF CONVERGENCE 
C XI4>=THIRD DEPEND VAR 
C XI 5 )=TH IRD IND VAR 
C X ( 6 ) = S ECOND DEPEND VAR 
C X ( 7)*SEC0ND IND VAR 
C X ( 8 > = F IRST DEPEND VAR 
C X ( 9 >=F IRST IND VAR 

C X ( 3 ) MUST BE ZERO UPON FIRST ENTRY TO ROUTINE 
Y*0. 

IF (ANS) I » 2 r 1 

1 DEP*DE PEND- ANS 
T OLANS = TOL *ANS 
GO TO 3 

2 DEP=DEPEND 
T OLANS=TOL 

IF < ABS(DEP)-TOLANS) 5,5,4 
IF ( X { 2 )- A J > 8, 8, 7 
ANEW=A IND 
X( 2>=0. 

ICON* 2 
RETURN 
ANEW=Y 
XI 2>=X( 2>+l* 

I C ON* I 
RETURN 
AN EW*Y 
X( 2>=0. 

I CON* 3 
RETURN 

IF ( X I 3 ) > 9,9,12 
*** first GUESS USING DIR 
X ( 3 ) * 1 • 

XI 8)=DEP 
X ( 9 ) * A I ND 

IF (AIND) 10,11,10 

10 Y*D IR* A I ND 
GO TO 6 

11 Y = DIR 
GO TO 6 

12 IF ( X ( 3 )- 1 • > 13,13,16 
C ♦ ** LINEAR GUESS 

13 X ( 3 ) * 2 • 

X< 6>=DEP 
XI 7)=AIN0 


1 
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9 
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23 
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25 
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28 
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31 

32 

33 

34 

35 

36 

37 
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IF ( X C 8 l-X ( 6) ) 14,9,14 

14 IF (X49)-X(7>> 15,9,15 

15 A*(X(91-X(7) >/ C X( 81-X(6) > 

Y*X ( 9 1— A*X ( 8 ) 

IF (A8S(10**X(9) )-ABS( Y) 1 9,9,6 
C *** QUADRATIC GUESS 

16 X ( 4MDEP 
X( 5MAIND 

IF I X ( 7 l-X (51) 18,17,18 

17 IF 1 X I 61— X ( 41 ) 13,9,13 

18 IF (X(6)-X(4)) 19,13,19 

19 IF ( X ( 9 1— X ( 5) ) 23,20,23 

20 IF ( X I 8 1— X (41) 21,22,21 

21 X ( 9MX ( 7 1 
X( 8MX<6) 

GO TO 13 

22 X ( 9 MX ( 7) 

X ( 8 MX ( 6 1 
XI3M1. 

IF I X ( 9 > ) 10,11,10 

23 IF ( X ( 8 MX ( 41 1 24,21,24 

24 F* (X( 61-X( 41 > / I X( 7)-X( 5)1 

A* ( X( 8 1— X ( 4 1— F* ( X (9 MX ( 51 1 )/( ( X(9 l-X (7 1 ) *( X < 9) -X ( 5 > 1 1 
B»F-A*CX< 5MX( 7)1 
C-X(4MX< 5)*<A*X( 71-F) 

IF (A) 27,25,27 

25 IF <81 26,7,26 

26 Y*-C/B 
GO TO 47 

27 IF ( B 1 32,28,32 

28 IF (C) 30,29,30 

29 Y*0. 

GO TO 47 

30 G— C/A 

IF (G) 7,7,31 

31 Y-SQRT(G) 

YY — SQRT(G) 

GO TO 37 

32 IF (C) 34,33,34 

33 Y*-B/A 
YY*0* 

GO TO 37 

34 D*4.*A*C/B**2 

IF (1.-D1 13,35,36 

35 Y*-B/(2.*A) 

GO TO 47 

36 E»$QRT(1.-D> 

Y*(-B/(2.*A))*< 1«+E) 

YY*t-B/(2.*A))*(l.-E) 

37 M4 

DEPH IN*ABS ( X( 4) 1 
DO 39 M6,8,2 

IF ( OE PM IN— ABS ( X( 111) 39,39,38 

38 MI 
OEPMIN-ABS(X( 111 

39 CONTINUE 
K«M1 

IF ( (X(K)-YM(X(K l-YY 1 1 42,42,40 

40 IF ( ABS( X( K 1— Y 1— ABS( X(K)-YY) 1 47,47,41 

41 Y *YY 

GO TO 47 

42 IF (J-6) 43,44,44 

43 J MM2 
KK«K *2 
GO TO 45 

44 JMJ-2 
KK*K-2 

45 SLOPE* (X(KK)-X(Kl )/(X( JJ)-X(J > 1 

IF <SL0PE*X(JM(X(K1-Y1) 46,46,47 

46 Y-YY 

47 X ( 9 MX (7) 

X ( 8 MX (6) 

X ( 7MX ( 5) 
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X(6)«X(4> 
GO TO 6 
END 


132 

133 

134 


»IBFTC ATMOS 

SUBROUTINE ATMOS ( ZFT, TM, S IGMA f RHO , THETA , DELTA ,CA,AMU, K) 1 

THIS IS A SUBROUTINE TO COMPUTE CERTAIN ELEMENTS OF THE 1962 2 

U.S. STANDARD ATMOSPHERE UP TO 90 KILOMETERS. 3 

CALLING SEQUENCE... 4 

5 

CALL ATMOS ( ZFT , TM, SIGMA, RHO, THETA, DELTA, CA, AMU, K) 6 

ZFT « GEOMETRIC ALTITUDE I FEET) 7 

TM « MOLECULAR SCALE TEMPERATURE (DEGREES RANKINE) 8 

SIGMA = RATIO OF DENSITY TO THAT AT SEA LEVEL 9 

RHO « DEN SIT Y( LB- SEC* *2— FT4* (-4) OR SLUG-FT**( -3) ) 10 

THETA » RATIO OF TEMPERATURE TO THAT AT SEA LEVEL 11 

DELTA « RATIO OF PRESSURE TO THAT AT SEA LEVEL 12 

CA * SPEED OF SOUND (FT/SEC) 13 

AMU = VISCOSITY COEFFICIENT ( LB-SEC/FT**2) 14 

15 

K =• 1 NORMAL 16 

* 2 ALTITUDE LESS THAN -5000 METERS OR GREATER THAN 90 KM 17 

■ 3 FLOATING POINT OVERFLOW 18 

19 

ALL DATA AND FUNDAMENTAL CONSTANTS ARE IN THE METRIC SYSTEM AS 20 

THESE QUANTITIES ARE DEFINEO AS EXACT IN THIS SYSTEM. 21 

22 

THE RADIUS OF THE EARTH (REFT59) IS THE VALUE ASSOCIATED WITH THE 23 

1959 ARDC ATMOSPHERE SO THAT PROGRAMS CURRENTLY USING THE LIBRARY 24 

ROUTINE WILL NOT REQUIRE ALTERATION TO USE THIS ROUTINE. 25 

COMMON/UNITS/SI 26 

LOGICAL SI 27 

DIMENSION HB( 10) , TMBI 10) ,DELTAB( 10 ) , ALMI 10) 28 

DATA! HB( I > , TMB ( I ) , DELTAB ( I > , ALM( I ) ,I»1 , 10) / 29 

1 -5.0, 320.65, 1.75363E 00, -6.5, 30 

2 0.0, 288.15, l.OOOOOE 00, -6.5, 31 

3 11.0, 216.65, 2.23361E-01, 0.0, 32 

4 20.0, 216.65, 5.40328E-02, 1.0, 33 

5 32.0, 228.65, 8.56663E-03, 2.8, 34 

6 47.0, 270.65, 1.09455E-03, 0.0, 35 

7 52.0, 270.65, 5.82289E-04, -2.0, 36 

8 61.0, 252.65, 1.79718E-04, -4.0, 37 

9 79.0, 180.65, 1.0241 E-05 , 0.0, 38 

t 88.743, 180.65, 1.6223 E-06 , 0.0/ 39 

DATA REFT59/2. 08555 31E 07/, GZ /9.8066S/, 40 

1 AMZ /2B.9644 /» RSTAR /8.31432/t 41 

2 FTT0KM/3.048E-04 /, S /110.4 /, 42 

3 AMUZ /1.2024E-05 /, CAZ /1116.45/, 43 

4 RHOZ /O. 076474 /, GZENG /32.1741/ 44 

CONVERT GEOMETRIC ALTITUDE TO GEOPOTENTIAL ALTITUDE 45 

IF IN SI UNITS, CHANGE ZFT TO FEET 46 

IF (SI) ZFT=ZFT*3.280833 47 

HFT-(REFT59/(REFT59»ZFT))*ZFT 48 

CONVERT HFT ANO ZFT TO KILOMETERS 49 

Z«FTTOKM*ZFT 50 

H-FTTOKM*HFT 51 

K-l 52 

TMZ-TMBI2) 53 

IF (H.LT.-5.0.0R.Z.GT.90.0) GO TO 7 54 

00 1 M=1,10 55 

IF (H-HB(M)) 2,3,1 56 

CONTINUE 57 

GO TO 7 58 

M-M-l 59 

DELH-H-HB(M) 60 

IF (ALM(M> .EQ.O.O) GO TO 4 61 

TMK*TMB(MM-ALM(M)*OELH 62 

C GRADIENT IS NON ZERO, PAGE 10, EQUATION I.2.10-(3> 63 
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DELTA=DELTAB I M)*t (TMB ( M) / TMK ) **( GZ*AHZ/ { RSTAR* ALM< M) ) ) ) 
GO TO 5 
TMK*TM8(M) 

GRADIENT IS ZERO, PAGE 10, EQUATION I. 2. 10-14) 

DELTA=DELTA6(M)*EXP(-GZ*AMZ*DELH/( RSTAR*TMB(M> ) ) 

THET A* TMK/TMZ 
S I GMA= DELTA /THETA 

ALPHA=SQRT(THETA**3)*< ( TMZ+S) / I TMK+S) ) 

CONVERSION TO ENGLISH UNITS 
TM = U8*TMK 

RHO=RHOZ*SIGMA/GZ ENG 
CA=CAZ*SQRT{ THETA) 

AMU=AMUZ*ALPHA/GZENG 
IF ( SI ) GO TO 100 
GO TO 101 

100 TM=TM/1.8 
RHO= RH 0*5 1 5* 379 
C A = CA* *3048 
AMU=AMU*47. 880258 
ZFT=ZFT/3. 280833 

IF IN SI UNITS* 

TM DEGREES KELVIN 

RHO KG/M**2 

CA H/SEC 

AMU (N-SEC) /H**2 

ZFT M 

101 CONTINUE 
CALL OVERFL { J ) 

GO TO (6, 8),J 

6 K = K + 2 
GO TO 8 

7 K = 2 

8 RETURN 
END 
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HB FTC COAFBN 

SUBROUTINE COAFBN 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES , JDES , KDE S , MODE ,INIT ,IDUMP ,IAMTP ,IGASMX, 
2IDBURN, IAFTBN, l OC D , IMCO , I 0 SHOC , I MSHOC , NOZF LT , I TRYS , 
3L00PER» NOMAP , NUM MAP , MAPEDG, TOLALL ,ERR(9 ) 

COMMON /ALL 1/ 

1PCNFGU » PCNCGU , T 4G U ,DUMD1 ,DUMD2 , DEL FG iDELFN .DELSFC , 
2ZFDS , PCNFDS, PRF DS t ET AFDS , W A FDS ,PRFCF , ET AFCF »W AFCF , 
3ZCDS , PCNCDS , PRC OS , ETACDS , W ACDS ,PRCCF , ET ACCF , W ACCF * 
4T4DS , WFBDS , DTC ODS , E T ABDS , W A 3CDS » DPC OD S , DTCOCF , E TABCF , 
5TFHPDS ,CNHPDS , E THPDS , TFHP CF ,CNHPCF , ETHPCF , DHHPCF ,T2DS i 
6TFLPDS , CNL PDS » ETL PDS , TFL PCF , CNLPCF , ETLPCF, DHLPCF ,T21DS t 
7T24DS , WFDDS , DTDUDS ,ETADDSt WA23DS , DPDUOS, DTDUCF , E TADCF , 
8T7DS , WF ADS , DTA FDS , ETA AOS , wlG6C0S , DPAFDS, DT AF CF , ETAAC F, 
9A55 , A2 5 , A6 *A7 »A8 »A9 ,A28 ,A29 , 

$p $ 55 t AM55 , CVDNOZ , C VMNOZ , A8 SAV ,A9SAV , A28SAV , A29SAV 
COMMON /ALL2/ 

IT 1 ,P1 , H 1 t S 1 »T2 ,P2 ,H2 ,S2 t 

2T21 »P21 , H21 , S21 t T 3 » P3 , H3 ,S3 » 

3T4 ,P4 ,H4 fS4 ,T5 » P5 »H5 ,S5 t 

4T55 , P55 , H55 ,S55 » BLF ,BLC ,BLOU , BLOB , 

5CNF , PR F , ETA F ,WAFC ,WAF ,WA3 ,WG4 ,F AR4 , 

6CNC , PRC , ETAC ,WACC ,HAC ,ETAB ,DPCOM .DUMP , 

7CNHP , ET ATHP , DHTCHP , DHTC , B LHP ,WG5 , FAR5 ,CS » 

8CNLP , ET ATL P? DHT CLP »DHTF , B L LP ,WG55 ,FAR55 ,HPEXT , 

9AM , ALTP , E TAR ,ZF ,PCNF ,ZC t PCNC iWFB , 

$TF FHP , TFF LP , PCBLF ,PCBLC , P C 6LDU , PCBLOB, PC BLHP , PCBLL P 
COMMON /ALL3/ 

IX P 1 , XW AF , XWAC » XBLF ,XBLOU . XH3 ,0UMS1 ,DUMS2 , 

2XT21 , XP2 1 t XH2 1 ,XS21 »T23 t P23 ,H23 *S23 , 

3T24 , P24 , H24 ,S24 ,T25 »P25 #H25 ,S25 » 

4T28 ,P28 , H 28 ,S28 ,T29 ,P29 ,H29 ,S29 » 

5WAD tWFD ? WG2 4 ,FAR24 , ET AC ,OPDUC , BYPASS , 0UMS3 , 
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19 
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6TS28 

• PS28 

9 V28 f AM28 

9 T S29 

• PS29 

V29 

r AM29 r 

7XT55 

» XP55 

9 XH5 5 » XS55 

• XT25 

,XP25 

*XH25 

V XS25 9 

8XWFB 

t XWG55 

9 XFAR55 1 X WFD 

t X WG24 

> XFAR24» XXP1 

9 DUMB 9 

9T6 

fP6 

9 H6 t S6 

t T7 

tP7 

9 H7 

9 S7 , 

$T8 

iP8 

9 M8 9 S8 

# T9 

9 P 9 

9H9 

9 S9 

COMMON 

IWG6 

/ALL4/ 
» WF A 

9 WG7 ,FAR7 

9 ETAA 

9 OPAFT 

9 V55 

9 V 25 9 

2PS6 

• V6 

9 AM6 f TS7 

9 PS7 

»V7 

9 AM7 

9 AM25 , 

3TS8 

» PS8 

, V 8 # AM8 

rTS9 

9 PS9 

• V9 

9 AM9 , 

4V A 

t FRO 

9 V JD 9 FGMD 

9 V JM 

9 FGMM 

9 FGPD 

f FGPM 9 

5FGM 

» FGP 

9 WFT 9 WGT 

9 FART 

9 FG 

9 FN 

9SFC , 

6WA32 

9 OPWGDS 

9 DPW ING 9 WA32DS 

9 A38 

9 AM38 

9 V38 

9T38 9 

7H38 

#P38 

9 TS3 8 9 P S38 

9T39 

f H39 

9 P39 

f TS39 , 

8V39 

» AM39 

9 A 39 9 BPR I NT 

9 WG37 

9 CVDWNG 9 FGMWNG 

9 FGPWNG 9 

9FNWING 

» FNMAIN 

9 FWOVFN *PS39 

9 FFOVFN 

9 FCOVFN 9 FMNOFN 

9 FNOVFO 9 

$VJW 

? T22 

9 P22 |H22 

9 S2 2 

,T50 

9 P5 0 

9 H 50 

COMMON 

1S50 

/ALLS/ 
• WA22 

,ZI 9 PCNI 

9 CNI 

9 PR I 

9 ETAI 

9 WACI 9 

2TFFIP 

tCNlP 

, ETATIP.DHTCIP 

9 DHTI 

♦ BLIP 

, PCBL IP 

, PCN I GU9 

3ZIDS 

» PCN IDS 

9 PRI DS 9 ETA I DS 

9 WA IDS 

i PR ICF 

9 ET AI CF 

9 WAICF 9 

4TFIP0S 

t CNI PDS 

9 ETI PDS 9 TFIPCF 

.CNIPCF 

» ET I PCF» DH IPCF 

9 WAICDS 9 

5WAI 

v PCBL I 

9 BLI #T22DS 

• WA21 

9 WG50 

f FAR50 

9 A 24 , 

6AM23 

9 DUMSPL 

, FXF N2M 9 F XM2CP 

9 AFTFAN 

9 PUNT 

9 PC 8 L 1 0 

9 P 6 DSAV 9 

7AM6DSV 

iETAASV 

FAR 7SV 9 T 4PBL 

9141 

, FAN 

f ISPOOL 



COMHON /VOLS/ VFANt V INTC , VCOMP ,VCOMB, VHPTRBt VI PTRB 9 VLPTRBt VAFT BN , 
1 VFDUCT tVWDUCT 
COMMON /UN I TS/S I 
LOGICAL SI 

COMMON /WHR ERR/ I CO AFB # ICODUC* I COM I X 
DIMENSION Q<9> 

DATA AW0RD/6HC0AF BN/ 

WORD* AWORD 
Q(2>*0* 

Q t 3 >*0# 

IF ( SI I GO TO 100 
AJ*778.26 
A JX*2* 719 
CAPSF* 2116* 2170 
G* 32* 174049 
PRATM* 14*696 
TDEL*2000.0 
T7MAX-4000.0 
RA-.0252 
GO TO 101 

100 A J* 1*0 
AJX*1*0 
CAPSF* 101325*0 
G* 1* 0 

PR ATM* 14* 696/1013 24* 6 
TDEL*1 111*0 
T7MAX*2222.0 
RA*286*9 

101 CONTINUE 
I C0AFB*0 

C *** P60S AND AM60S ARE SET FOR GENERAL 1 2AT ION OF AFTERBURNER 
C**« EFFICIENCY MAP GENERALIZATION 
IF (IDES *EQ* 1> P60S*P6*PRATM 
IF (IDES.EQ.l) AM 6DS*AM6 
WF6 » FAR55*WG55/ (FAR55+1* ) 

I F ( IGA SMX *GT*0 ) WF6 * WF6 ♦ F AR24*WG24/ ( FAR24+ 1* > 

WA6*WG6— WF 6 
C *** DRY LOSS 

WG6C*WG6*SGRTC T6> /P6 

IF ( I DES*EQ* 1 > WG6C0S*WG6C 

DPAFT*OPAFDS*( WG6C/WG6CDS) 

IF ( DPAFT *GT* 1* ) DPAFT*l* 

P7*P6*< l.-DPAFT) 

A7*A6 

FAR6-WF6/WA6 

CALL PROCOM ( F AR6 ,T6 , XXI , XX2 . XX3 ,XX4. PHI 6t XX6> 

WQA-WG6/A7 

C1»P7*SQRT(G/(T6*AJ) )*CAPSF 
AM7*AM6 
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T S7=0 • 875* T6 

1 DO 2 1*1,15 

CALL PROCOM { F AR6 ,T$7, CS7 , AK7 ,CP7 ,REX7 , PHI S7 ,H S7 ) 

V7=AM7*CS 7 

HSCAL=N6-V7**2/ I2.*G*AJ) 

DELHS=HSCAL-HS7 

IF ( ABS( DELHS ) *LE .0.0005*HSCAL ) GO TO 3 

2 TS7=TS7+DELHS/CP7 
I C OAFB* 1 

GO TO 14 

3 WQAT-C1*SQRT(AK7/REX7)*AM7/(1.+(AK7-1.) *AM7**2 /2.)**((AK7+l.)/(2.* 
KAK7-1.))) 

D IR*WQ A/WQAT 
E W= ( WQ A— W QAT ) / WQA 

CALL AFQUIR ( 0 1 1 ) ,AM 7, EW f 0. ,4 0. , • 001 ,D IR , AM7 T , IGO) 

IC0AFB=2 

GO TO (4,5,14) , IGC 

4 AM7=AM7T 

IF (AM7.GE.1.0) A M7= 0* 9 
GO TO 1 

5 PS7*P7/EXP ( (PH 1 6- PHI S7I/REX7) 

IF ( IAFTBN.GT.0 ) GO TO 7 

C **♦ NON-AFTERBURNING 

6 T 7=T 6 
WFA=0.0 
FAR7*FAR6 
WG7=WG6 

IF ( IDES. EQ.l. AND. T7DS.NE. 0.1 GO TO 7 
GO TO 20 

C *** AFTERBURNING 

7 IF (IAFTBN *EQ. 2) T7=T6+TDEL 
IF (IDES. EQ.l) T7 -T 70S 

IF (T7.LE.T6) GO TO 6 
RH065 =CAP SF*PS7 / ( AJ*REX7*TS7) 

PS65*PS7 
V65=V7 
Q( 2>*0. 

Q ( 3)*0 • 

8 IF ( T7 .GT. T7MAX) T7=T7MAX 
IF ( T7 .LT. T6) T7=T6*1.001 
IF (SI ) T7*T 7*9.0 /5. 0 

HV*( ( ( ( ( (-.459431 7E-19*T7>-.2034116E-15)*T7*.2783643E-11>*T7+. 2051 
1501E-07 )*T7-.2453116E-03 )*T7-. 9433296E-01) *T7+ . I 845537E+05 
IF (SI > T7=T7*5. 0/9.0 
IF (SI) HV=HV*232 5.4295 
CALL THERMO ( P7 ,H A, T 7 , XX 1 , XX2 , 1 , FAR6, 0 ) 

C*** TO ALTER DESIGN ABET AA MAP FRO* GENERAL TO SPECIFIC MAP 
IF ( IDES.NE .1) GO TO 9 
F AR7DS= (HA-H6 ) / ( H V*E TAADS ) 

CALL ETAAB (0.,0.,0.,0* , ET A ADS ,ETA AS V, P6DS ,P6DSAV , AM6DS , AM6DSV , IDE 
1S,FAR7DS,FAR7SV> 

T 7*T6 
GO TO 20 

9 P6GS*P6*PRATM 

F AR7GS = ( HA-H6 )/(HV*ETAADS) 

DO 10 (1*1,15 

CALL ETAAB ( F AR 7G S, AM6 , P6GS ,E T A A, ETAADS , ETAA $V ,P6DS, P6 DSAV , AM6 DS . A 
1M6DSV, IDES , F AR7DS ,FAR7SV ) 

F AP7= ( HA-H6 >/(HV*ETAA> 

DELF A7=AB S ( FAR7-FAR7GS ) 

IF (DELFA7.LE.0.0 1*FAR7) GO TO II 

10 F AR7GS =FAR7 

11 CONTINUE 

IF (FAR7.GT.0.) GO TO 12 

IC0AFB=3 

CALL ERROR 

12 WFAX*FAR7*WG6 

IF (IAFTBN.EQ.il GO TO 15 
ERRW=(WFA-WFAX)/WFA 
DIR=$QRT( WFA/WFAX > 

CALL AFQUIR ( Q( l) ,T7 ,ERRW , 0. , 30. , . 0005 , D IR ,T7T ,IGO ) 

I COAF B = 4 

GO TO ( 13, 16,14), IGO 

13 T7=T7T 
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136 

137 
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GO TO 8 

14 CALL ERROR 

15 WFA-WFAX 

16 F AR7* < WF6* WF A > / WA 6 
WG7-WG6+WFA 

C *** MOMENTUM LOSS 

CALL PROCOM (FAR7 »T7,XXi tXX2,XX3,REX7,PHI7 ,H7> 
RH07*CAPSF*P7/I AJ*REX7*T7> 

V7-WG7/(RH07*A7) 

Q( 2**0. 

0( 3>*0. 

PS7*PS65-0.01 

17 RH07-WG7/< V7*A7> 

HS7«H7-V7*'»2/(2.«'G*AJ> 

CALL THERMO ( 1*0, HS7.TS7, PHI S7 ,XX2 r 1 tFAR7, 11 
IF (T$7*GE *301* > GO TO 18 

CALL THERMO (1.0 f HS7 f 400. t PHI S7 # XX2 f 1 ,FAR7,0 ) 
V7»SQRTC2.*G*AJ*(H7-HS7> ) 

GO TO 17 

18 PS7«RH07*AJ*REX7*TS7/CAPSF 
PS7A»PS65+(RH065*V65**2-RH07*V7**2>/{G*CAPSF I 

D I R=SQRT 1 ABS ( PS7/PS7 A ) ) 

EP*(PS7-PS7A)/PS7 

CALL AFQUIR l Q ( 1> tV7,EP # 0* t 50. fOOlt DIR tV7T f IGO) 

V7*V7T 

IF (V7.LT.100*) V7«100. 

IC0AFB~5 

GO TO i 17f 19f 14 ) f IGO 

19 P7*PS7*EXP ( ( PH I 7— PHI $7 ) /REX7) 

CALL PROCOM < F ART »TS7 »CS7 , XX2 f XX3, XX4 , XX5, XX6) 

AM7*V7/CS7 

20 CALL THERMO < P7 ,H 7i T7 f S7 , XX2f 1 f FAR7 , 0) 

IFlVAFTBN.EQ*0.0) GO TO 31 

Q < 21*0*0 
Q ( 3>*0#0 
WG7P-WG7 
H7P»H7 

P7D0T *OER I V( 18» P7 ) 

28 CONTINUE 

CALL THERMO <P7,H7,T7 f $7,XX2, 1 ,FAR7 ,0) 
WG7«WG7P-P7D0T*VAFTBN/T7/ ( 1#4*RA> 

U7»H7-AJX*RA*T7 
U 7D0T *OER I V ( 19 » U7 ) 

H7X*( WG7P*H7P-( WG7P-WG7>*U7-U7D0T*P7*VAFTBN/T7/RA )/WG7 

ERRW* ( H7-H7X) /H7 
DIR*SQRT( ABS(H7/H7X)) 

CALL AFQU IR (QC 1 ) # T7 , ERRW . 0# 1 20*t 0. 0001 ,D IR # T7T * I GO ) 

I C0AFB=6 

GO TO i 29t 31? 30 ) f IGO 

29 T7-T7T 
GO TO 28 

30 CALL ERROR 

31 CONTINUE 
IC0AFB*0 
CALL COMNOZ 
RETURN 

Ji 

C 

ENO 


182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 
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6IBFTC COCOMB 

SUBROUTINE COCOMB 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

HOES t JOES fKDES ,MOOE 9 1 N IT f IDUMP » I AMTP »IGASMX» 
2IDBURN* lAFTBNt IDCD « IMCD 9 I DSHOC » IMSHOCtNOZFLT » I TRYS » 
3L00PER* NOMAP • NUMMAPt MAPEDGt TOLALL #ERR 19 > 

COMMON /ALL 1/ 

lPCNFGUtPCNCGUt T4GU jOUMDl »DUMD2 #DELFG tOELFN »DELSFC, 


31 





xoo 

101 


□ » PCNFD S»PRFDS ,ETAFDS,WAFDS ,PRFCF f ETAFCF , W AFCF 

tPCNCDSi PRC DS f ETACOSf UACDS ,PRCCF , ETACCF,HACCF 
4T40S * WFBDS » DTC ODS » ETABDS » WA3C0S » DPCOOSt DTCOCF. ETABCF 

* CNHPDS * ETHPDS 9 TFHPCF jCNHPCFfETHPCFf DHHPCF f T20S 
6TFLPDS,CNLP0S,ETLP0S,TFLPCF9CNLPCF,ETLPCF,0HLPCF f T2lDS 
7T240S fWFDDS » OTDUOS » ETAOOSt WA230S f DPOUOS 9 OTDUCF , ETAOCF 
8T7DS iWFADS 9 OTAFOS , ETA ADS, WG 6 CDS » DPAFDS* OT AFCF, ETAACF 


9A55 


,A25 


9 A6 


#A7 


9 A 8 


SPS55 

9 AM 5 5 

tCVONOZ tCVMNOZa A 8 SAV 

COMMON /ALL2/ 



IT 1 

tPl 

9H1 

9 SI 

9 T 2 

2T21 

9P2i 

9 H 21 

9 S 21 

9 T 3 

3T4 

f P4 

9 H4 

9 S 4 

9 T 5 

4T55 

9 P55 

,H55 

f S55 

9 BL F 

5CNF 

9 PRF 

9 ETA F 

9 WAFC 

9 WAF 

6 CNC 

9 PRC 

9 ETAC 

9 HACC 

9 WAC 

7CNHP 

9 ET ATHP , OHT CHP , DHTC 

9 BLHP 

8 CNLP 

9 ETATLP, DHT CLP 9 DHTF 

9 BLLP 

9AM 

9 ALT P 

9 etar 

iZF 

9 PCNF 

STFFHP 

9 TFFLP 

9 PCBLF 

9 PCBLC 

9 PC BLDl 

COMMON /ALL3/ 



1XP1 

9 XWAF 

9 XHAC 

9 XBLF 

9 XB LDU 

2XT21 

f XP21 

9 XH 2 I 

9XS21 

9T23 

3T24 

9P24 

9 H24 

9S24 

t T25 

4T28 

f P28 

9H28 

9 S28 

9T29 

SHAD 

9 WFD 

9 HG24 

9FAR24 

9 ETAD 

6TS28 

fPS28 

9 V28 

9 A M2 8 

9TS29 

7XT55 

9 XP55 

9 XH5 5 

9 XS55 

9XT25 

8 XWFB 

9 XWG55 

9 XFAR55 

* 9 XHFD 

9 X WG24 

9T6 

9 P 6 

9 H 6 

9 S 6 

9 T7 

$T 8 

9 P 8 

9 H 8 

f S 8 

9T9 

COMMON 

1 /ALLA/ 



1HG6 

9 HFA 

9 HG7 

,FAR7 

9 E TAA 

2PS6 

9 V 6 

9 AM6 

t TS7 

f PS7 

3TS8 

9 PS 8 

9 V 8 

9 AM 8 

9TS9 

4VA 

9 frd 

9 VJD 

9 FGMD 

9 V JM 

5FGM 

9 FGP 

9 WFT 

9 WGT 

f FART 

6WA32 

9 OPWGDS 

9 DPW ING 

9 HA32DS 

9 A38 

7H38 

9 P38 

9 TS3 8 

9PS38 

9T39 

8V39 

t AM39 

9A39 

9 BPR I NT 

9WG37 

9FNUKNG 

9 FNMAIN 

9 FHOVFN 

9PS39 

9 FFOVFN 

AVJW 

9T22 

9 P22 

9H22 

9S22 

COMMON 

/ALL52 




1S50 

iHA22 

til 

9 PCNI 

9 CNI 

2TFF1P 

9 CNIP 

9 ETATIP 

9 DHTC IP 

9 DHTI 

32 I DS 

9 PCNIDS 

9 PRIDS 

9 ETA I OS 

9 WA IDS 

4TF1PDS 

9 CNIPDS 

9 ET I PDS 

,tfipcf 

9 CN IPCF ! 

5HAI 

9 PCBLI 

9 BLI 

9 T22DS 

9WA21 , 

6AM23 

t DUMSPL 

9 F XF N2M 

9 FXM 2 CP 

9 AFTFANi 

7AM60SV 

9 ETA ASV 

9 FAR 7SV 

9T4PBL 

9 T41 , 


1 A 9 


tP2 

fP 3 
pP 5 
9 BLC 
9 WA3 
• ETAB 
i WG5 
»WG55 
>ZC 


»XH3 
9 P23 
»P25 
»P29 


9 A26 


9 A 29 
p 9 A29SA 

9 S2 
9 S3 
9S5 
9 B LOB 
9 FAR 4 
9 DUMP 
9 CS 

9FAR55 f HPEXT 
9 PCNC r WFB 


9 H2 
9H3 
9H5 
9 BtDU 
9 WG4 
9 DPCOM 
9 FAR5 


» DU MS 1 
9 H2 3 
9H25 
9 H29 


9 DUMS2 
9S23 
9S25 
9S29 


9 DPDUC 9 BYPASS f 0UMS3 
f PS29 9 V29 9 AM29 

9 XH25 


9XP25 

f XFAR2 

9^7 

9P9 

9 DPAFT 
9V7 
9 PS9 
9 FGMM 
9 FG 
9 AM38 
t H39 


9 H7 
9H9 

f V55 
f AM7 
9 V9 
9 FGPO 
9 FN 
9 V38 
9 P39 


9XS25 
9 DUMB 
9S7 
9S9 

9 V25 

f AM25 

9 AH9 

9 FGPM 

9 $ FC 

9T38 

9TS39 


9 CVDWNG 9 FGMWNG f FGPWNG 
t FCOVFN 9 FMNOFN 9 F NOVFD 

9T50 9 P50 


9 PR I 
9 BLIP 


9H50 


9 ETAI 9 WAC I 
9PCBLIP,PCNIGU 


> WG50 9 FAR50 ,A24 
PUNT 9 PCBLIO 9 P 6 OSAV, 

- -- fFAN , [SPOOL 
/DYH/ ITRAN,TlME f DTtTF, JTRAN 9 NSTEP, TPR1 NT 9 OTPRNT 
1 SfSSct^2o«t VFAN ’ VI NTC ,VC0MP ’ VC0MB ’ VHPTRB * VI PTRB .vlptrb. vaftbn 
COMMON /UNITS/ SI 
L06ICAL FXFN2M* FXH2CP* SI 

COMMON / COMB/PSI I15),0ELT(15» 15> ,ETA( IS >15) ,NPS,NPT(15) 
DIMENSION 0(9»,DUMB0(15,I5J ' ’ 

DATA AW0RD/6HC0C0M8/ 

WORCNAWORO 
IF (SI I GO TO 100 
RA-.025 2 
AJ*2.719 
TMAX*4000. 

TMIN*1000. 

GO TO 101 
R A*286»9 
AJ*i.O 
TMA X*2222. 

TMIN-555.5 
CONTINUE 
Q ( 2 )*0* 

Q( 3>«0. 

P3PS I * 14»696*P3 

IF(SI> P3PSI«.14504E-3*P3 


9 

10 

11 

12 

13 

14 
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17 
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25 

26 

27 
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30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
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32 



O' 


1 


2 


4 


5 


6 


18 


19 

20 
21 


9 


C 


H A 3C* H A3* S QRT ( T3) /P3PSI 
IF ( SI ) MA3C*WA3*SQRT(T3>/P3 
IF <IDES*EQ*1) HA3CDS-WA3C 
DPCOM«DPCODS*( WA3C/WA3C0S ) 

IF 1 DPC0M*GT • 1* > DPCOM-1* 

P4*P3*( i.-OPCOM) 

IF ( I DES*EQ* 1*AND* M0DE*EQ*2> T4*( TMAX+TMI N> /2* 
IFIITRAN.EQ.1.AN0.H00E*EQ*2) CALL FCNTRL 
IF(T4*GT*TMAX> T4-TMAX 
IF(T4.GE.THTN> go TO 2 
T4*TM I N 

IF (M0DE*EQ*1> MAPEOG-l 
OTCO*T 4— T3 

IFCSU DTC0*DTC0*9* 0/5*0 

p) Y kJ O ^ p C J 

CALL SEARCH C- 1* r P3PSIN» DTCO» ETAB , DUMMY * PS I ( 1) #NPS f DELT( l» 1>»ETA( 1 
1,1), DUMBO (it 1) • NPT(l), 15 t 15t IGO) 

IF ( IGO*EQ« 7 1 CALL ERROR 
IF ( IDES*NE • 1 ) GO TO 4 
ETABCF=ETABDS/ETAB 
ETAB*ETABCF*ETAB 

HV»( ( ( ( I <-*459431 7E-19*T4)-*2034116E- 15) *T4+*2783643E-11)*T4+* 2051 

150 IE-071 *T4-*2453 116E-03)*T4- *9433296E-0 1) *T 4+ • 1 845537 E+05 
IF (SI) T4*T4*5* 0/9*0 
IF (SI) HV*HV*232 5*4295 

CALL THERMO ( P4,HAfT4, XX 1 f XX2 » Of 0*0,0) 

F AR4* ( HA— H3)/ ( HV*ETAB> 

IF (FAR4*LT*0*I FAR4-0* 

WFBX*FAR4*WA3 

IF (M00E*NE*2) GO TO 7 

ERRH»<HFB-WFBX)/WFB 

DIR*SORT( WFB/WFBX > _ _ ___• 

CALL AFQUIR (Q( i> ,T4fERRHf0*f 20* * 0*0001 fOIRfT4T, IGOI 

GO TO ( 5t 8 16 ) f IGO 

T4»T4T 

GO TO I 

CALL ERROR 

WFB*WF8X 

IF ( IDE S*EQ* 1) WFBOS*WFB 

CALL THERMO (P4fH4 f T4, S4 f XX2 t l » FAR4»0) 

HG4*WFB+WA3 

IF (VCOMB*EQ*0.0) GO TO 21 

Q ( 2 )*0 *0 

0 ( 3 ) * 0*0 

MG4P-MG4 

H4P-H4 

P4D0T*DER I V I 10»P4> 

CONTINUE 

CALL THERMO (P4,H4,T4, S4,XX2» 1» FAR4,0) 

W G4«HG4P-P4D0T*VC OMB /T4/ 1 * 4/R A 
U4*H4— AJ*RA*T4 

H4X* ( WG4P*H4P- ( WG4P-MG4) *U4— U400T*P4*VCOMB /T 4/RA >/NG4 
ERRW* ( H4— H4X ) / H4 

0IR*SQRT(AB$(H4/H4X>) _ „ ^ 

CALL AFQUIR(Q( 1) f T4, ERRH, 0* 1 20* 1 0*0001 »D IR tT4T *IGO) 

GO TO (19 f 21 f 20)f IGO 
T4-T4T 
GO TO 18 
CALL ERROR 

IFUDES^EQ.D HR I TE ( 6* 10 ) HA3C0S» ETABCF 

IF (FXM2CP*0R* ISPOOL*EQ* 1) GO TO 9 

CALL COHPTB 

RETURN 

P50-P4 

H50-H4 

T50-T4 

S50-S4 

FAR50*FAR4 

HG50»HG4 

SET HIGH PRESSURE TURBINE PARAMETERS TO ZEROi NOT USED 
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104 
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106 
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108 
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110 
111 
112 

113 

114 
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118 

119 

120 
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123 

124 

125 

126 
127 
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131 

132 

133 

134 
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136 
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o o n 


TFFHP=0. 

CNHP*0. 

DHTC*=0. 

OHTCHP^O. 

ETATHP=0* 

IF (FXM2CP) CALL COIPTB 
IF (FXM2CP) RETURN 

C IF RUNNING 1 SPOOL TJ GO TO COHPTB TO ZERO OUT COIPTB 

CALL COHPTB 
RETURN 


FORMAT (I7HOCOMBUSTOR DESIGN, 7X8H WA3CDS-, E15.8, 8H ETA8CF* r E15 • 8 ) 
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165 
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167 

168 
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170 


SIBFTC COCOMP 

SUBROUTINE COCOMP 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 
1IDES , JDE S » KDE S 


1IDES ,JDES ,KDES , MODE ,INIT rIOUMP , I AMTP ,IGASMX 
21 DBURNf IAFTBN, I DC D ylMCO t I D SHOC , I MSHOC , NOZF LT , I TRYS 
3L00PER, NOMAP f NUM M AP , M AP EOG, TOLALL , ER R ( 9 > 

COMMON /AL L 1/ 



9A5 5 

r A25 

, A 6 

f A 7 

f A 8 

t A9 

• A28 

* A 29 * 

$PS55 ,AM55 ,CVDNOZ,CVMNOZ,A8SAV 

COMMON /ALL2/ 

t A9S AV 

t A28 SAVfA29SAV 

IT 1 

,P1 

, H 1 

F S 1 

f T 2 

fP2 

»H2 

fS2 f 

2T 2 1 

,P21 

» H 2 1 

f 52 1 

F T 3 

* P3 

,H3 

, S 3 , 

3T 4 

9 P4 

t H4 

f S 4 

f T 5 

fP5 

r H5 

F S 5 , 

4T 5 5 

, P55 

f H55 

f S 55 

f 6 LF 

fBLC 

f 8 LOU 

» 8 LOB F 

5CNF 

, PRF 

fETAF 

, W AFC 

f W A F 

»WA3 

,WG4 

f F AR4 » 

6CNC 

, PRC 

,etac 

,WACC 

f W AC 

fETAB 

, OPCO M 

,OUMP f 

7CNHP 

, ETATHP, OHTCHPyDHTC 

.BLHP 

f WG5 

f FAR5 

,CS t 

8CNLP 

i ETATLP, DHT CLP 

, DHT F 

fBLLP 

t WG 5 5 

» F AR5 5 

,HPEXT f 

9AM 

i ALT P 

fETAR 

.ZF 

f PCNF 

,zc 

, PC NC 

fWFB 

$T F f HP ,TFFLP 
COMMON /ALL3/ 

fPCBLF 

fPCBLC 

fPCBLDUfPCBLOBfPCBLHPfPCBLLP 

1XP1 

, XW A F 

fXWAC 

fXBLF 

fXBLDU 

f XH3 

,DUMS1 

f DUMS2 f 

2XT21 

t XP2 1 

, XH2 1 

f X S2 1 

fT23 

f P23 

fH23 

f S 23 , 

3T24 

r P 2 4 

,H24 

# S24 

f T 2 5 

fP2 5 

f H25 

f S 25 f 

4T28 

tPZQ 

f H28 

f S28 

t T29 

f P2 9 

, H29 

, S29 » 

5WAD 

rWFD 

t WG24 

,F AR24 

,ETAC 

fDPDUC 

f BY PASS 

, DUMS3 , 

6TS28 

, P S28 

f V28 

,AM28 

f T S 29 

f PS29 

f V29 

,AM29 , 

7XT55 

t XP55 

f XH55 

f XS55 

f X T 25 

» XP2 5 

, XH25 

fX S2 5 f 

8XWFB 

i X WG55 

i XFAR55 

fXWFD 

f X HG24 

,XFAR24 

, XXPl 

» DUMB y 

9T6 

tP6 

,H6 

f S 6 

f T 7 

F P7 

f H7 

,S7 , 

iTQ 

COMMON 

t P8 

/ALL4/ 

r H8 

,S8 

» T 9 

F P9 

»H9 

t S9 

1WG6 

, WF A 

» WG7 

f F AR 7 

fETAA 

,DPAFT 

f V5 5 

» V 25 » 

2PS6 

,V6 

f AM6 

f T S7 

f P S 7 

,V7 

, AM7 

f AM25 t 

3TS8 

,PS8 

f V8 

, A M8 

,TS9 

,PS9 

t V9 

t AM9 , 

4V A 

i FRD 

, V JD 

,FGMO 

fV JM 

, FGMM 

fFGPD 

tFGPM , 

5FGM 

, FGP 

t WFT 

, WGT 

»fart 

f FG 

fFN 

» S FC f 

6WA32 

f OPWGDS 

fDPW ing 

f WA32DS 

f A3 8 

f A M38 

f V38 

• T 38 , 

7H3 8 

» P 38 

f TS38 

f P S38 

f T 3 9 

f H39 

t P39 

i T S39 , 

8V39 

, AM39 

, A 39 

f BPR I NT 

t WG 37 

fCVDWNG 

,FGMWNG 

fFGPWNGf 

9FNWING 

, FNMA IN 

, FWOVFN 

, PS 39 

fFFOVFN 

fFCOVFN 

,fmnofn 

fFNOVFOf 

SVJW 

COMMON 

,T22 
/ALL 5/ 

f P 22 

fH22 

, S22 

f T50 

f P50 

?H 50 

IS 50 

t WA22 

,ZI 

fPCNI 

fCNI 

F PR I 

»ETAI 

y W AC 1 y 

2TFF IP 

,CN I P 

, ETATIP 

fOHTCIP 

,DHTI 

fBLI P 

fPCBL IP 

fPCNIGUf 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 
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100 


101 


1 

c 


2 


12 


13 

4 


5 


6 


37 I DS .PCNIDS.PRIOS » ETA l DS » WA IDS .PRICF . ET A! CF.WAICF » 
ATFIPDS.CNIPDS.ETIPDS.TFIPCF.CNIPCF.ETIPCF, OH IPCF , W AlCDS. 

5WAI .PCBLI * BLI , T22DS .WA21 .WG50 . FAR50 .A24 , 

6AM 2 3 » DUMSPL* F XF N2M, F XM2CP. AFTFANt PUNT » PCBL ID.P6DSAV, 

7AM60SV 9ETAASV* FAR 7SV.T4PBL .T41 iFAN .ISPOOL 
COMMON /VOL S/ VFAN, V INTC . VCOMP . VCOMB t VHPTRB, VI PTRB » VLPTRB, V AFT BN* 
1 VFOUCT .VWDUCT 
COMMON /FLOWS/ WA FP f WA IP » WACP 
COMMON /UNITS/ SI 

LOGICAL FXFN2M.FXM2CP.DUMSPL.FAN.SI 

COMMON / COMP/CNX ( 15) .PRX ( 15. 15) . WACX( 15,15) .ETAX( 15. 15) . 


INCN.NPTI 15) 

DIMENSION Q( 9) » Wl_H( 2 > 

DATA A WORD . WLH/ 6HC0C OMP, 6H UO) .6H (HI) / 

WORD* A WORD 

IF ( SI ) GO TO 100 

T $TD»51 8*668 

P$TO*1*0 

RA-.0252 

AJ*2*719 

GO TO 101 

TSTD-288.149 

P$TD»101325* 

RA-286.S 
A J* 1*0 

THETA* SORT (T21/TSTD) 

DELTA* P21/PST0 
IF <IDES*NE*1> GO TO 1 
THETAD*THETA 
WACOS*WAC 

w ACC«WAC*THETA/DE LTA 

IF ( *NOT*F XM2CP ) PCNC*PCNCDS 

IF (.N0T.FXM2CP) GO TO 2 

SPEEDS OF MIDDLE ANO INNER SPOOL ARE THE SAME 
SPDMI D*CNI*SQRT ( T22/TST0 > 

CNC*SPDMID/THETA 
PCNC*iOO**CNC*THETA/THETAD 
IF (IDES.EQ*1> PC NCOS* PC NC 
CNC*PCNC*THETAD/( 100**THETA> 

IF (ZC.LT.O.) ZC*0* 

IF (ZC *GT • 1* ) ZC*1* 

CHCS*CNC 



UX(i. 1>.NPT(1).15.15,IG0) 

GO TO 13 
PRC* 1* 

ET AC* 1* 

yif ■ UA 7 1 

WACC-W AC* THETA /DELTA 
CMC-1* 

PRCCF* 1# 

IF ( M0DE*EQ*1> GO TO 4 

IF ( I CNC-CNCS ) *GT •0*0005* I CNC ) MAPEDG-1 

IF UG0*EQ.l.0A*IG0.EQ*2) WRITE (8.9) CNCS ,WLH ( IGO ) 

WAC*WACC*DELTA/ THETA 

IF <IDES*NE.1> GO TO 5 

T21DS*T21 

IF ( I SPOOL *GE* 2 ) PRCCF*( PRCOS- 1* ) / ( PRC-1 • > 

ETACCF*ETACDS/ETAC 

IF ( 1$P00L*EQ*1> ETACCF-UO 

WACCF-WACDS/WAC 

WRITE (6.10) PRCCF, ETACCF , WACC F. T2 10S 
PRC-PRCCF*(PRC-1. 

ETAC*ET ACC F*ET AC 


WAC*WACCF*WAC 

WACP*WAC 

IF ( .MOT.DUMSPL#0R*PC8LID*NE«0**0R.*N0T#FAN) GO TO 6 

WA22*WAC 

WAI*WA22 

WAC I*WACC*WACC F 

WA32*WAI-WAC 

BL I*WA32 

WA21*WAC 
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UOUJ* 


WACC»WACC*WACCF 
PCBL I = BL I /WA I 
CALL HOUCTI 

IF (PCBLID.EQ.O.) ERR ( 7) * < WAC- WA I) /WAC 

IF (.NOT. FAN) ERR I 51 *( WAF-WAC-BLF ) /WAC 

IF ( IDES.EQ. 1. AND.PCBL ID.EQ.O* ) ERR(7>M#E-4 

CALL THCONP (PRC, ETAC #T21 , H2 1 , S21, P21, T3,H3, S3 ,P3) 

I F ( VCOMP. EQ.O* 0 ) GO TO 21 
Q( 21*0* 0 
Q ( 3 >*0. 0 
H3P*H3 

P3D0T*DER1V(8,P3) 

18 CONTINUE 

CALL THERMO (P3» H3,T3, S3, XX2,0, 0.0,0) 

WAC*WACP-P3DOT*VC 0MP/T3/1.4/RA 
U3*H3— AJ*RA*T3 
U3D0T»DER I V ( 9, U3) 

H3X*( WACP*H3P-< WA CP-WAC )*U3-U3D0T*P3* VCOMP /T3/RA)/ MAC 
ERRW* ( H3-H3X > /H3 
0 I R*$QRT ( ABS( H3/H3X) ) 

CALL AFQUIR(Q< 1 ) , T3, ERRW , 0. » 20 * , 0* 000 1 ,0 IR »T3T , IGO ) 

GO TO ( 19,21,20), IGO 

19 T3*T3T 
GO TO 18 

20 CALL ERROR 

21 CONTINUE 

IF I PCBLC .GT *0* ) BLC=*PCBLC*WAC 

WA3*WAC-BLC 

BLDU*PCBLDU*BLC 

6L0B~PCBL0B*BLC 

BLHP*PCBLHP*BLC 

BL IP* PCBL I P+BLC 

BLLP*PCBLLP*BLC 

IF (MOQE.NE.l) GO TO 7 

IF ( ABS(CNC-CNCS) .LE.0.001*CNCS> GO TO 8 

WRITE (8,11) CNCS ,CNC 

CALL ERROR 

7 PCNC*100.*THETA*CNC/THETA0 

8 CALL COCOMB 
RETURN 


10 

11 


FORMAT (19H0* * ♦ CNC OFF MAP ,F 10.4, 2XA6, 11H» * *$$**$$> 

0ESIG N.6X8H PRCC F« ,E 15.8 , 8H ETACCF« , E15 .8, 
18H UACCF.f E15.8f 8H T21DS«, E 15. 8 > 

iuD. R |riI.l}??° CNC MAS ” » El5,8 * 11H ANO N0W» ,E15.8,24H CHECK PCNC I 
INPUT III,,, ) 

END 
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163 
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176 


$IBFTC CODUCT 

SUBROUTINE CODUCT 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES , JDE S ,KDES 
2IDBURN, IAFTBN, I DC 0 
3L00PER, NOMAP , NUMMAP 
COMMON /ALII/ 

1PCNFGU rPCNCGU* T4GU 
2ZFDS , PCNFDS , PRF DS 
3ZCDS , PC NCOS , PRC DS 
4T4DS , WFBDS ,DTCQDS 
5TFHPDS ,CNHPDS , ETHPOS 
6TFLPDS,CNLP0S,ETLPDS 
7T24DS , WFDDS ,DTDUOS 
8T7DS , WFADS , DTA FDS 
9A55 , A25 ,A6 

SPS55 , AM55 ,CVDNOZ 
COMMON /ALL2/ 


MODE ,INIT , I DUMP , IAMTP ,IGASMX, 
tlMCD t IDSHOC, IMSHOC,NOZFLT,ITRYS , 
, MAPEDGf TOLALL ,ERR (9 ) 


t DUMD1 
, ETAFDS 
f ETACOS 
, ET ABDS 
,TFHPCF 
,TFLPCF 
,ETA0DS 
, ETA ADS 
f A7 

,C VMNOZ 


, DUR02 
, WAFDS 
, WACDS 
, WA3CDS 
,CNHPCF 
,CNLPCF 
, W A230S 
t WG6CDS 
t A 8 

, A8SAV 


, DELFG 
, PRFCF 
#PRCCF 
, DPCODS 
,ETMPCF 
, ETL PCF 
, DPDUOS 
, DPAFO S 
tA9 

, A9SAV 


, DE LFN 
, ET AF CF 
, ET ACCF 
tDTCOCF 
, DHHPCF 
, DHLPCF 
OTOUCF 
, DT AFCF 
, A28 
• A28SAV 


,DELSFC, 
,W AFCF , 
, W AC CF , 
,ETABCF, 
, T2DS , 
, T 2 1 DS , 
, ETAOCF, 
, ETAAC F, 
r A 29 , 

, A29SAV 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
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IT 1 ,P1 .HI 

2T21 ,P2l t H21 
3TA ,PA ,HA 
AT55 ,P55 . H55 

5CNF »PRF . ETAF 
6CNC .PRC . ETAC 
7CNHP .ETATHP.OHTCF 
8CNLP .ETATLP. OHTCl 
9AM » ALTP » ETAR 
*TFFHP .TFFLP . PCBLf 
COMMON /ALL3/ 


3T2A ,P2A . H2A »S2A 

AT 2 8 ,P28 ,H28 ,S28 

5H A 0 , WFD . WG2 A ,FAR2 

6TS28 ,PS28 ,V28 .AM28 

TXT55 . XP55 ,XH55 ,XS55 

8XMFB . XWG55 . XFAR55 ,XWFD 
9T6 . P6 ,H6 . S6 

*T 8 . P8 . H8 . S8 


SI 

t T2 

fP2 

» H 2 

• 52 

S21 

t T3 

tP3 

• H3 

• S3 

S4 

»T5 

tP5 

»H5 

• S5 

S55 

» BLF 

9 BLC 

9 BLDU 

• BLOB 

WAFC 

tWAF 

r UA3 

r HG4 

• FAR4 

W ACC 

» WAC 

,ETAB 

9 DPCOM 

• DUMP 

DHTC 

, BLHP 

9 WG5 

9 FAR5 

• CS 

DHTF 

9 BLIP 

t WG55 

9 FAR5 5 

•HPEXT 

19 

»PCNF 

tZC 

9 PCNC 

• WFB 

PCBL C 

9 PC BLOU 

9 PCBLOB 

, PCBL HP 

•PCBLLP 

XBLF 

t XBLDU 

9 XH3 

9 DUMSI 

•DUMS2 

XS21 

»T23 

9 P23 

9 H23 

,S23 

S24 

fT25 

9 P25 

,H25 

, S25 

$28 

• T29 

t P29 

9 H2 9 

• S29 

FAR24 

t ETAC 

•DPDUC 

, BYPASS 

9 DUMS3 

> AK28 

» T S29 

9 PS29 

• V29 

9 AM29 

,XS55 

9 XT25 

9 XP25 

9 XH 25 

• X S2 5 

i XWFD 

9 X WG24 

,XFAR2« 

^XXPl 

• DUMB 

rS6 

.T7 

t P7 

»H7 

• S7 

r SB 

t T9 

# P9 

• H9 

• S9 

,FAR7 

9 ETAA 

,OPAFT 

,V55 

• V25 

>TS7 

9 PS 7 

t V7 

9 AM 7 

• A M2 5 

,AM8 

• TS9 

9 PS9 

• V9 

9 AM9 

,FGMD 

• V JM 

f FGMM 

, FGPD 

• FGPM 

»WGT 

, FART 

tPG 

• fn 

• SFC 

.WA32DS.A38 

9 A M3 8 

9 V38 

# T38 

» PS38 

.T39 

*H39 

9 P39 

• TS39 

.BPRINT ,WG37 

.CVDHNG.FGMWNG.FGPMNG, 

• PS39 

•FFOVFN, FCOVF N, FMNOFN, FNOVFDi 

»H22 

9 S22 

,T50 

9 P50 

9 H 50 

* PCN I 

, CN I 

9 PR I 

,ETAI 

• WACI 

.DHTCIP.DHTI 

• BLIP 

, PC BL IP.PCNIGU 


9T6 »P6 »H6 »S6 ,T7 »P7 »H7 .if . 

$T8 «P8 . H8 . S8 »T9 ,P9 .H9 .S9 

COMMON /ALLA/ 

1MG6 ,WF A . WG7 ,FAR7 .ETAA . DRAFT »V55 »V25 . 

2PS6 »V6 «AM6 »TS7 .PS7 *V7 .AM7 .AM25 . 

3TS8 »PS8 . V8 . AM8 »TS9 »PS9 »V9 .AM9 . 

AVA , FRO , VJD ,FGMD »VJM ,FGMM .FGPD .FGPM . 

5FGM ,FGP »WFT ,WGT .FART .FG »FN ,SFC . 

6MA32 .OPHGDS.DPH ING.WA32DS.A38 ,AM38 .V38 »T38 . 

7H38 ,P38 , TS38 ,PS38 .T39 iH39 ,P39 ,TS39 , 

8V39 . AM39 ,A39 .BPRINT.MG37 .CVDWNG.FGMWNG.FGPWNG, 

9FNWI NG.FNMA IN. FWOVFN, PS39 « FFOVFN. FCOVF N. FMNOFN, FNOVFD, 

$VJW ,T22 . P22 »H22 .S22 ,T50 . P50 .H50 

COMMON /ALL5/ ... 

1S50 . WA22 .21 . PCN I ,CNI ,PRI .ETAI ,MACI . 

2TFFIP ,CN l P , ETATIP.DHTCIP.DHTI .BLIP , PCBL IP.PCNIGU. 

31 IDS .PCNIOS.PRI OS . ETA IDS. WA IOS .PRICF .ETAICF.WAICF • 

ATF IPOS .CN IPOS, ETIPOS.TFIPCF.CNIPCF.ETIPCF.DHIPCF.WAICDS, 

5HAI .PCBL I , BLI .T220S ,MA2I ,WG50 » FAR50 .A2A , 

6AM23 .OUMSPL, FXF N2M.FXM2CP. AFTFAN.PUNT , PCBL I0.P60SAV, 
7AM60SV.ETAASV, FAR7SV.TAPBL ,TA1 .FAN .ISPOOL 

COMMON /DYN/ ITRAN.T IME.DT.TF, JTRAN.NSTEP.TPRINT.OTPRNT 

COMMON /VOLS/ VFAN, VINTC , VCOMP .VCOMB. VHPTRB, VI PTRB .VLPTRB, VAFTBN, 
1 VFDUCT , VMDUCT 

C OMNON / MHR ERR / I COAFB , ICODUC, ICCMIX 

COMMON/UNITS/SI 

LOGICAL SI 

LOGICAL AFTFAN 

DIMENSION Q<9> 

DATA ANORD1. AWORD2/6HCOOUCT.6HON022L/ 

W0RD*AW0R01 

QI2»»0. 

QI3I-0. 

GOGO-O-O 

IF (SI » GO TO 100 

AJ«778.26 

AJX*2.719 

CAPSF-2116.2170 

G“32« 17A0A9 

TSTO-518.67 

T0EL»2000.0 

TMAX»A000.0 

RA-.0252 

GO TO 101 

100 AJ-1.0 
AJX»1.0 
CAPSF-101325.0 
G-1.0 

TST0-288.15 
TDEL= 1111*0 
THAX-2222.0 
RA-286.9 

101 CONTINUE 
ICODUC-O 
WAX*WAF— MAI-BLF 
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IF (PCBLIO.EQ.O.) MAX-HAF-WAC-BLF 
IF (AFTFAN) MAX*H AF-BLF 
MAO*MAX+BLDU 
P23-P22 

C*** DRV LOSS 

H23*(BLDU*H3*WAX*H22)/MAD 

CALL THERMO (P23, H23,T23,S23, XX2, 1 ,0.0, 1 > 

WA23C*MA0*SQRT( T23)/P23 
>F ( I DES.EQ. 1) M A 23D S* W A ? 3f. 

BYPASS*! MAF— MAI )/MAI 
IF (AFTFAN) BVPAS S*MAF /MA I 
DPOUC*OPOUDS*( MA23C/MA23DS ) 

IF ( DPOUC.GT . 1. ) 0P0UC*1 . 0 
P24*P23*( l.-DPOUC ) 

CALL PROCOM (0. ,T23,XX1,XX2,XX3,XX4,PHI23,XX6) 

IF ( IGASNX.GT.O) IDBURN*0 
AM24*AM23 
7 S24*T23*0 » 875 

1 00 2 1*1,15 

CALL PROCOM (0.,TS24,CS24,AK24,CP24,REX24,PHIS24,HS24) 

V 24* AM24*C S24 
HSCAL-H23-V 244*2/ (2.*G*AJ > 

OELHS*HSC AL— HS24 

IF ( ABS ( DELHS > .LE »0.001*HSCAL ) GO TO 3 

2 TS24*TS24+0ELHS/CP24 
ICODUC-1 

GO TO 11 

3 C1-P24*SQRT!G/(T23*AJ>)*CAPSF 
IF ( I0ES.NE.1) GO TO 4 

IF (GOGO.GT.O. ) GO TO 4 

1ST0A* ( ( AK24+ 1. )/2. )**( ( AK24+ 1. ) / ( 2. * ( AX 24-1 • ) > ) 4AM24* ! 1.* ( I ( AK24— 
1 l.)/2.)*AM24**2) >**(- ( AK24+ 1. )/(2.*( AK24-1. )) ) 

EQMCR* SORT ( G*AK24/RE X24/ A J ) / ( SORT! TSTDI /CAPSF) 4(2. 0/ ( AK24+ 1. 1)4 
1*{ (AK24+l.)/2./(AK24-l.) ) 

MA23CC*MA23C/SQRT(TSTD> 

A24*1./AST0A*WA23CC/EQMCR 
GOGO* 1.0 

4 MQA*MA0/A24 

l)/?2**(AK24^1 A ) ^ /REX24> * AM24/,1 ** ,AK24-1 * , ** M2 ^**2'2.)**! (AK24+1. 
0 1 R*MQ A/MOAT 
EH*( MOA-MQATI/MQA 

CALL AFQUIR (Q( 1) ,AM24,EW, 0. , 30. ,0.001 ,0 IR ,AM24T, I GO) 

IC00UC*2 

GO TO (5,6,11), IGO 

5 AM24*AM24T 

IF (AM24.GT.1. 0) AM24-0.5 
GO TO l 

6 PS24*P24/EXP( (PHI 23-PHIS24)/REX24) 

7 IF ( I0BURN.GT.0 > GO TO 8 

C*** NON-OUCT BURNING 

T24-T23 

MFD*0. 

FAR24*0 
GO TO 17 

8 IF (IDBURN .EQ. 2) T24*T23-*-TDEL 

9 IF ( T24 .GT. TMAX ) T24*TMAX 
IF (T24.LT. T23) T24*T23 

C*** DUCT BURNING 

RH042*CAPSF*PS24/ ( AJ*REX24*TS24) 

PS42*PS24 
V42-V24 
Q( 2)-0. 

Q(3)*0. 

IF ( T 24 .LT. T 23) T24 * T23*1.001 
C *** IF DESIRED, ENT ER CALCULATIONS FOR ETAO HERE 
IF (SI) T24*T24*9. 0/5.0 

HV* (((((( — .459431 7E— 19*T24)—. 20341 16E— 15 )4T2 4+ • 2783643E— 11 ) 4T244.2 
1051501E-07)*T24-. 2453116E-03>*T24-.9433296E-01I*T244.1845537E*05 
IF (SI) T24*T24*5 .0/9*0 
IF (SI) HV»HV* 2325. 4295 
CALL THERMO (P24, HA,T24,XX1,XX2,0,0. 0, 0) 

FAR 24* ( HA— H23 ) / ( H V*ETAD) 

IF (FAR24.LT. 0. ) FAR 24*0. 
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WFUX*FAR24*WAD 
IF ( IOBURNtNE.2) GO TO 12 
ERRK*(KFO-WFOX)/W FO 
DIR-SQRTi NFD/WFOX 1 

CALL AFQUIR (QU).T24,ERRW.0.t20.,0.000l,OIR,T24T f IGO) 

I C00UC*3 

GO TO ( 10. 13. 11), IGO 

10 T24*T24T 
GO TO 9 

11 CALL ERROR 

12 WFD-WFDX 

13 CONTINUE 

C*** MOMENTUM LOSS 

WG24-WFD+WAD 

CALL PROCOH ( F AR2 4.T24 ,XX 1 .XX 2 ,XX3, RE X24 .PHI 24 ,H24) 
RH024*CAP$F*P24/( AJ*REX24*T24 ) 

V24«WG24/(RH024*A24> 

Q(2)«0. 

Q ( 3>*0. 

PS24*PS42-0.01 

14 RH024- WG24/ ( V24*A 24) 

H$ 24*H 24-V 24**2/ 1 2.*G*AJ) 

CALL THERMO ( 1 *0. HS24, TS24 ,PH I S24 .XX2 . 1 . FAR24, 1) 

IF (TS24.GE.30l.) GO TO 15 

CALL THERMO ( 1*0, HS24, 400* . PH I $24. XX2 . 1 , FAR24, 1) 

V 24* SORT ( 2.*G* A J* (H24-HS24) > 

GO TO 14 

15 PS24*RH024*AJ*REX244TS24/CAPSF 

P S24A*PS42+ CRHO 42*V42**2-RH024*V24**2> / ( G*CA PS F) 

DIR*SQRT( AB$(P$24/PS24A> > 

EP*( PS24—PS24A ) /P S24 

CALL AFQUIR <Q1 1> .V24.EP, 0. ,50., 0.001, DIR, V24T, IGO) 

V24*V24T 

IF (V24.LT.25. ) V24*25. 

IC0DUC*4 

GO TO ( 14. 16.11). IGO 

16 P24*P$24*EXP< (PHI 24-PHlS24)/REX24) 

CALL PROCOM ( F AR2 4, TS24, CS24 , XX2.XX3.XX4.XX5 »XX6) 

AM 24* V 24/C S24 

17 CALL THERMO ( P24, H24.T24. S24 . XXI . 1 .FAR24 ,0 ) 

WG24* WFO+WAD 

IF ( VF DUCT «EQ«0.0> GO TO 31 

Q ( 2>*0*0 

Q < 3)*0.0 

MG24P*WG24 

H24P-H24 

P2400T *DER IV(20.P24) 

28 CONTINUE 

CALL THERMO( P24.H 24, T24, S24, XX 2, 1. FAR24.0) 
«G24»WG24P-P24DQT*VFDUCT/T24/ ( 1.4*RA) 

U24*H24-A JX*RA*T24 
U2400T-DER IV( 21.U24) 

H24X* ( WG24P*H24P- ( WG24P-WG24) 4U24-U24D0T *P24*VF0UCT/T24/RA ) / 

1 MG24 

ERRW* ( H24-H24X ) /H24 
OIR-SQRTt A8S(H24/H24X) ) 

CALL AFQUIR (Q( 1 > . T24, ERRW , 0. , 20. . 0.0001 , 01 R. T24T . I GO) 

ICOOUC-5 

GO TO (29,31,30), IGO 

29 T24-T24T 
GO TO 28 

30 CALL ERROR 

31 CONTINUE 
T25*T 24 
P25-P24 
H25-H24 
S25-S24 
AMZ5-AMZ4 

IF ( IGASMX.GT.O) GO TO 21 

WORD-AWORDZ 

AZ8SAV-A28 

A29$AV*A29 

NOZD*0 

1DNOZ=0 


167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 
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188 

189 

190 

191 

192 
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194 
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199 

200 
201 
202 
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204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 


39 



IF ( NOZFLT «EQ« 2*0 R. NOZFLT. EQ. 3 > NOZO*l 24 \ 

IF ( IDES.EQ.i.OR. IDBURN.GT.O. OR.NOZD.EQ.il IDNOZ-1 242 

IF(ITRAN.EQ.II IDNOZ-O 243 

IF (IOCD.EQ.U GO TO 18 244 

CALL CONVRG < T25, H25,P25, S25, F AR24 t WG24,P1 , I ONOZ ,A28,P25R,T28 , H28, 245 

lP28tS28tTS28fPS28»V289AN28 9 ICON> 246 

GO TO ( 19 t 19, 19 t 1 II f ICON 247 

18 CALL CONDIV ( T25, H25,P25 f S25 # FAR24, WG24,P1 , I DNOZ »A28 9 A29 f P25R,T28 t 248 

lH28»P28»S28,T29 t H29»P299S299TS289TS29,PS289PS299V289V299AM289AH29, 249 

2ICONI 250 

IDSHOC-ICON 251 

I COOUC*6 252 

GO TO <20, 20.20, 11), ICON 253 

19 T29-T28 254 

H29*H28 255 

P29-P28 256 

S29*S28 257 

TS29-TS28 258 

PS29*PS28 259 

V29-V28 260 

AM29-AM28 261 

A29*A28 262 

I DSHOC* ICON+3 263 

20 ERR (5 )»( P25R-P25) /P2 5R 264 

IF < 10N0Z.EQ. 1 ) WRITE (6,22) A28 , AM28 , A29 , AM29 265 

21 ICODUC*0 266 

CALL FASTBK 267 

RETURN 268 

C 269 

C 270 

22 FORMAT (19H0DUCT NOZZLE 0ESIGN,5X8H A28-, El 5.8, 8H AM28«,E15.8 271 

1,8H A29*,E 1 5.8 , 8H AM29*,E15.8) 272 

END 273 


SIBFTC COFAN 


SUBROUTINE COFAN 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 


1 

2 

3 


1 IDES 

9 JOES 

9 KDE S 

r MODE 

9 I N IT 

9 I DUMP 

, IAMTp 

9 IGASMX 9 

4 

2IDBURN 

, IAFTBN 

9 1 DC D 

9 IMCD 

, I D SHOC 

9 IMSHOC 

9 NOZFLT 

9 I TRYS , 

5 

3L00PER 

, NOMAP 

, NUMMAP 

, MAPEDG 

9 TOLALL 

,ERR ( 9 1 



6 

COMMON 

/ALLl/ 







7 

1PCNFGU 

,PCNCGU 

, T4GU 

, 0UMD1 

,0UMD2 

,DELFG 

,DE LFN 

9 DELSFC 9 

8 

2ZFDS 

,PCNFDS 

, PRF OS 

, ETAFDS 

9 WAFDS 

9 PRFCF 

9 ET AF CF 

tWAFCF , 

9 

3ZCDS 

,PCNCDS 

, PRCDS 

9 ETACDS 

9 WACOS 

9 PRCCF 

9 ET ACCF 

9 W ACCF , 

10 

4T4DS 

,WFBDS 

,DTCOO$ 

.ETABOS 

9 WA3CDS 

, DPCODS 

, DT COCF 

9 ETABCF 9 

11 

5TFHPDS 

,CNHPDS 

9 ETHPDS 

,TFHPCF 

,CNHPCF 

tETHPCF 

t DH HP CF 

9 T 2 DS , 

12 

6 TFLPDS 

,CNLPDS 

.ETLPOS 

,TaPCF 

9 CNLPCF 

,ETLPCF 

9 DHLPCF 

,T21DS , 

13 

7T24DS 

, WFDDS 

t DTDUOS 

9 ETADDS 

, W A23DS 

, DPOUOS 

, DTDUCF 

9 ETADCF, 

14 

8T7DS 

.WFAOS 

, DTAFDS 

f ETA ADS 

, WG 6 CDS 

9 DPAFOS 

, DT AF CF 

9 ETAACF 9 

15 

9A55 

9 A25 

9 A 6 

9 A7 

9 A 8 

9 A9 

9 A28 

,A29 , 

16 

APS 55 

, AM55 

, C VDNOZ 

.CVMNOZ 

9 A 8 SAV 

, A9S AV 

9 A2 8 SAV 

9 A29SAV 

17 

COMMON 

/ALL2/ 







18 

IT 1 

,P1 

,H 1 

,S1 

9 T2 

,P2 

9 H2 

9 S2 9 

19 

2T21 

9 P21 

9 H 21 

9 S21 

9 T3 

tP3 

9 H3 

,S3 , 

20 

3T4 

,P4 

9 H4 

9 S4 

9 T5 

9 P5 

9 H5 

,S5 , 

21 

4T55 

9 P55 

9 H55 

, S55 

9 BLF 

,BLC 

9 BLDU 

9 BLOB , 

22 

5CNF 

, PRF 

t ETA F 

, WAFC 

, W AF 

9 WA3 

9 WG4 

9 FAR 4 , 

23 

6 CNC 

9 PRC 

9 ETAC 

, WACC 

9 WAC 

,ETAB 

9 DPCOM 

, DUMP 9 

24 

7CNHP 

, ETATHP 

9 OHTCHP 

, DHTC 

, BLHP 

t WG5 

9 FAR5 

»CS 9 

25 

8 CNLP 

, ETATLP 

9 DHTCLP 

,DHTF 

9 BLLP 

t WG55 

9 FAR5 5 

, H PE XT 9 

26 

9AM 

9 ALT P 

9 ETAR 

9 ZF 

9 PCNF 

,zc 

, PCNC 

,WFB 9 

27 

STFFHP 

, TFFLP 

9 PCBLF 

, PCBLC 

9 PCBLDU 

9 PCBLOB 

9 PC BLHP 

9 PCBLLP 

28 

COMMON 

/ALL3/ 







29 

1XP1 

, XWAF 

, XWAC 

9 XBLF 

9 XBLOU 

9 XH3 

9 OUMSI 

,DUMS2 9 

30 

2XT21 

9 XP2 1 

, XH2 1 

,XS21 

9 T23 

9 P23 

,H23 

9 S 23 9 

31 

3T24 

,P24 

9 H24 

9 S24 

9 T25 

,P25 

, H25 

9 S25 , 

32 

4T28 

,P28 

• H28 

9 S28 

,T29 

9 P29 

9 H29 

• S29 , 

33 

5WAD 

,WFO 

9 WG24 

9 FAR 24 

, ETAD 

9 DPDUC 

9 BYPASS 

, DUMS3 , 

34 

6TS28 

,PS28 

, V 2 8 

t A M2 8 

9 T S29 

9 PS29 

9 V29 

t AM29 , 

35 


40 



7XT55 

. XP55 

, XH55 

, XS55 

,XT25 

,XP25 

, XH25 

, XS25 

f 

8XWFB 

i XWG55 

, XFAR55 

9 XWFD 

. XWG24 

f XFAR24 

,XXP1 

.DUMB 

9 

9T6 

9 P6 

,H6 

, S6 

. T7 

9P7 

,H7 

tS7 

9 

$T8 

COMMON 

»P8 

/ALL*/ 

. H8 

9 S 8 

, T9 

fP9 

9H9 

tS9 


1HG6 

9 WFA 

. WG7 

,FAR7 

,ETAA 

t DPAFT 

tV55 

,V25 

9 

2PS6 

, V6 

. AM6 

,TS7 

, PS7 

9 V7 

9 AM7 

. AM25 

» 

3TS8 

, PS8 

» V8 

t AMS 

,TS9 

t PS9 

9 V9 

, AM9 

9 

4VA 

.FRO 

9 V JO 

,FGMD 

. V JM 

,FGMM 

, fgpo 

,FGPM 

9 

5FGM 

,FGP 

9 WFT 

, WGT 

, FART 

9 FG 

,fn 

,SFC 

9 

6WA32 

, OPWGDS 

i , DPW ING 

, WA32DS 

A38 

, AM38 

9 V38 

,T 38 

9 

7H38 

. P38 

, TS3 8 

t PS38 

,T39 

,H39 

. P39 

,T S39 

9 

8V39 

v AM 39 

, A39 

. B PR I NT 

. WG37 

.CVDWNG.FGMWNG.FGPWNG. 


t H50 


9FNWING.FNMA IN, FWOVFN ,PS39 

$VJW ,T22 ,P 22 *H22 * S22 »T50 tP50 

COMMON /ALL5/ . u .. ¥ 

IS 50 9 WA22 .21 ,PCNI .CNI .PRI .ETAI fWACI t 

2TFFIP fCNlP f ETATIP.DHTC IP.DHTl iBLIP » PC BL IP. PCN IGU. 

3ZIOS . PCN [DS. PRI OS ,FTAI DS. HA IDS .PRICF , ET AI CF ,WAICF , 

4TF IPDSfCNIPDS.ETI PDS.TFIPCF. CN IPCF.ETIPCF .OHIPCF , W AICDS . 

5HAI ,PCBL I ,BLI ,T22DS ,WA21 .WG50 ,FAR50 ,A24 . 

6AM23 ,DUMSPL»FXFN2M,FXM2CP9 AFTFAN.PUNT t PCBL I0»P60SAV9 
7AM60SV9ETAASV,FAR7SV,T4PBL .T41 .FAN .ISPOOL 
COMMON /DYN/ ITRA N. T IME » DT . TF « JTRAN . NSTE P . TP RI NT . DTPRNT 
COMMON /VOLS/ VFA N. V I NIC . VCOMP ,VCOMB, VHPTRB. Vl PTRB .VLPTRB, VAFTBN , 

1 VFOUCT . VHOUCT 
COMMON /FLOWS/ WAFP.WAIP ,WACP 
COMMON /UNITS/ SI 
LOGICAL SI 

COMMON / FAN/CNX ( 15) ,PRX( 15, 15) ,WACX( 15 .15) ,ETAX( 15 f 15) . 

INCN.NPTI 15) 

DIMENSION Q(9) ,WLH(2> 

DATA A WORD ,WLH/ 6H COFAN, 6H (L0> • 6H (HI) / 

WORD*AWORD 

IF (SI ) GO TO 100 

TSTD»510.668 

PSTD* 1 *0 

RA**0252 

A J*2* 719 

GO TO 101 

100 TSTD*288.149 
P STD* 101325* 

RA-286.9 

AJ-1.0 

101 THETA=$QRT(T2/TSTD) 

DELTA*P2/PSTD 

IF ( IOE$«NE • 1 > GO TO 1 
THETAD*THETA 
WAFDS»WAFC* DELTA/ THETA 

1 CNF«PCNF*THETAO/( 100**THETA> 

IF (ZF.LT.O*) ZF*0* 

IF <ZF.GT*1.) ZF* 1* 

CALL SEARCH (ZF ,CNF . PRF, WAFC .ETAF.CNXI l ) ,NCN »PRX (1 .1 1 * WACX ( 1 1 1 > . ET 
lAXU.DtNPTU) .15,15, IGO) 

IF < <CNF-CNFS)*GT*0*0005*CNF) MAPEDG-1 

IF ( IG0*EQ.1*0R*!G0.EQ*2> WRITE (8,12) CNFS t WLH( IGO) 

W A F* WAFC* DELTA /THETA 
IF ( I DES*NE* 1 ) GO TO 2 
PRFCF*< PRFDS-1 • > / (PRF-1* t 
ETAFCF-ETAFDS/ETAF 
WAFCF-WAFDS/WAF 

WRITE (6,13) PRFC F. ETAFCF , WAFCF, T2DS 

2 prf*PRFCF*( PRF-1* )+l* 

ETAF*ETAFCF*ETAF 

WAF*WAFCF*WAF 

WAFP»WAF 

W AFC* WAFC *WAFCF 

PCNF* 100**THET A*CNF /THETAO 

CAL^THCOMP (PRF,ETAF,T2.H2,S2tP29T22,H22,S22 f P22) 

IF(VFAN*EQ*0*0l GO TO 21 
Q ( 2) *0*0 
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41 

42 
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*4 

45 

46 
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53 

54 
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56 
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78 

79 
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82 

83 
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87 
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93 

94 
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96 

97 

98 
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LOS* 
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Q<3)*0.0 

H22P*H22 

P22D0T-DER IV14,P22> 

18 CONTINUE 

CALL THERMO <P22,H 22, T22, S22, XX2,0 , 0.0, O) 

WAF*WAFP-P22D0T*VFAN/T22/1.4/RA 

U22*H22-AJ*RA*T22 

UZ2D0T*0ERIV<5,U22) 

H22X*(WAFP*H22P-< WAFP-WAF)*U22~U22DOT*P22*VFAN/T22/RA>/WAF 
E RRW* ( H22-H22X 1 /H2Z 
D I R* SORT ( ABSC H22/H22X) ) 

CALL AFQU I RC Q( l>, T22,ERRW, O* • 20«, 0*000 1 ,D| R, T22T , I GO) 

GO TO < 19,21,20), IGO 

19 T22*T 22T 
GO TO 18 

20 CALL ERROR 

21 CONTINUE 

IF ( PCBLF*GT *0» ) BLF-PCBL F4WAF 
IF (J0ES*EQ*1) GO TO 9 
JOES* 1 

IF ( INIT«EQ* 1) GO TO 8 
IF ( I OES«EQ« 1> GO TO 6 
I F ( JTRAN* EQ* 1 ) GO TO 8 
IF (M0DE.NE.2) GO TO 3 

T4*GUESS(3» Yl,Y2, PCNF , PCNFDS, HF8, HF6DS ,Y7» Y8 ,T4DS> 
PCNI*GUESS(8,T4,T4DS, Y3, Y4 ,Y5 , Y6, T22, T220S ,PCN IDS) 

PCNC*GUESS (4,Y1 ,Y2,PCNI, PCNIOS ,UFB,WFBDS,Y7, Y8 , PCNCDS) 

GO TO 7 

3 IF < M00E«EQ«1) GO TO 5 
IF ( MODE* EQ *0) GO TO 4 

T4*GUESS(7, Y1,Y2* PCNF, PCNFDS, Y5, Y6,T2 ,T2DS,T40S) 

4 CONTINUE 

PCNC *GUESS< 5, T4,T4DS,Y3,Y4,Y5,Y6,T22,T220S, PCNCDS) 

IF (FXM2CP) PCNC* PCNCDS* *99 

PCNCG1-PCNC 

PCNCG2-PCNCDS 

PCNI«GUESS<9,Y1,Y2,PCNCG1,PCNCG2,Y5,Y6,T22,T22DS,PCNID$> 

GO TO 7 

5 T4* GUESS C6,Y1,Y2, PCNC, PCNCDS, Y5, Y6 , T22 ,T220S ,T40S) 
PCNI*GUESS(8,T4,T 40S, Y3, Y4, Y5,Y6,T 22, T22DS, PCNIOS) 

GO TO 7 

6 PCNC*PCNCDS 
PCNI-PCNIDS 
T4-T4DS 
WFB*WF8DS 
T21DS*T2i 

7 ZC-ZCOS 
Z I *Z IDS 
PCNIGU-PCNI 
PCNCGU*PCNC 
T4GU-T4 

8 INIT-0 

9 IF (M0DE.NE.3) GO TO 10 

IF IABS(CNF-CNFS).LE*0*001*CNFS) GO TO 11 
WRITE <8,14) CNFS.CNF 
CALL ERROR 

10 PCNF* 100«*THETA*CNF/THETAD 

11 CALL COINTC 
RETURN 

C 

c 

12 FORMAT (19H0* ♦ * CNF OFF MAP,F10*4,2XA6, UH* * *$$$$$*) 

13 FORMAT < 1 1H0FAN DESIGN, 13X8H PRFCF«,E 15«8,8H ETAFCF*, E15. 8 ,8H MA 

1FCF*,E15.8,8H T2DS*,E15*8) 

14 FORMAT (10H0CNF WAS* ,E15«6,11H ANO NOW* ,E15.8,24H CHECK PCNF I 
INPUT ($$$($ ) 

END 
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SIBFTC COHPTB 

SUBROUTINE COHPTB 
COMMON /WORDS/ WORD 


1 IDES 

, JOES 

» KDE S 

9 MOOE 

,INIT • I DUMP . I AMTP ,IGASMX 

2IDBURN 

, IAFTBN 

, I DC D 

9 IMCD 

, IDSHOC.IMSHOC.NOZFLT.ITRYS 

3L00PER 

, NOMAP 

9 NUM MAP 

, M APEDG 

. TGLALL »ERR (9 ) 

COMMON 

/ALL1/ 




1PCNFGU 

t PCNCGU 

9 T4GU 

•DUMDl 

. 0UMD2 tOELFG .DELFN .DELSFC 

2ZFDS 

»PCNFDS 

9 PRF DS 

9 ETAFOS 

t WAFDS • PRFCF , ET AFCF ,WAFCF 

3ZCDS 

t PCNCDS 

9 PRCDS 

9 ETACDS 

.MACDS . PRCCF , ET ACCF ,W ACCF 

4T4DS 

9 WFBDS 

• DTC ODS 

9 ETABOS 

.WA3CDS.DPC0DS.DTC0CF.ETABCF 

5TFHPDS 

tCNHPDS 

9 ETHPDS 

9 TFHPCF 

,CNHPCF,ETHPCF,DHHPCF,T2DS 

6 TFLPDS 

t CNL POS 

, ETL PDS 

•TFLPCF 

f CNLPCF »ETLPCF, OHLPCF .T21DS 

7T24DS 

tWFDDS 

,DTDUDS 

t ETADDS 

. W A23DS » DPOUDSf DTDUCF»ETAOCF 

8T70S 

9 WF ADS 

9 DTA FDS 

.ETAAOS 

, WG 6 CDS t DPAFDS »OTAFCF*ETAACF 

9A55 

9 A25 

»A 6 

9 A7 

.AS *A9 » A28 ,A29 

APS 55 

9 AM55 

9 CVDNOZ 

,CVMNOZ 

, A 8 S A V , A9SAV t A2BSAVr A29SAV 

COMMON 

/ALL2/ 



,T2 «P2 »H2 ,S2 

IT 1 

• PI 

• HI 

• SI 

2T21 

» P21 

9 H 21 

» S21 

,T3 t P3 »H3 »S3 

3T4 

• P4 

• H4 

• S4 

,T5 ,P5 »H5 »S5 

4T55 

• P55 

9 H55 

» S55 

, BLF »BLC iBLOU .BLOB 

5CNF 

t PRF 

9 ETA F 

9 W AFC 

. W AF . WA3 i WG4 , FAR4 

6 CNC 

• PRC 

9 ETAC 

9 WACC 

,WAC .ETAB i DPCOM .DUMP 

7CNHP 

• ETATHP 

9 OHT CHP 

• DHTC 

. BLHP »WG5 , FAR5 ,CS 

8 CNLP 

»ETATLP 

9 DHTCLP 

,DHTF 

,BLLP ,WG55 .FAR55 .HPEXT 

9AM 

t ALTP 

• ETAR 

• ZF 

. PCNF ,ZC , PCNC ,WFB 

ATFFHP 

•TFFLP 

9 PCBLF 

9 PCBLC 

.PCBLDU.PCBLOB.PCBLHP.PCBLLP 

COMMON 

/ALL3/ 



.XBLDU . XH3 .DUNS 1 .DUMS2 

1XP1 

• XWAF 

9 XWAC 

• XBLF 

2XT21 

• XP2 1 

9XH21 

9 XS2 1 

,T23 , P23 . H23 ,S23 

3T24 

• P24 

»H24 

9 S24 

,T25 . P25 ■ H25 .S25 

VT2B 

• P2S 

9 H28 

• $28 

. T29 »P29 . H29 ,S29 

5WAD 

t WFD 

, WG2 4 

9FAR24 

, ETAD , OP DUC , BYPASS. DUMS3 

6TS28 

* PS28 

9 V28 

9 AM2 8 

. TS29 ,PS29 . V29 ,AM29 

TXT 5 5 

9 XP55 

v XH5 5 

9 XS55 

,XT25 ,XP25 , XH25 ,XS25 ■ 

8 XWFB 

f XWG55 

9 XFAR55 

,XWFD 

. XWG24 .XFAR24.XXP1 .DUMB ■ 

9T6 

• P 6 

9 H 6 

»S 6 

,T7 . P7 ,H7 »S7 i 

ATS 

tP 8 

9 H8 

• S 8 

,T9 ,P9 »H9 ,S9 

COMMON /ALL4/ 


,ETAA .DPAFT ,V55 ,V25 , 

1WG6 

tWFA 

9 WG7 

, FAR 7 

2PS6 

»V 6 

9 AM 6 

• TS7 

,PS7 . V7 . AM7 . AM2S ( 

3TS8 

f PS 8 

• V 8 

• AM 8 

,TS9 . PS9 ,V9 . AM9 , 

4VA 

t FRO 

• VJD 

,FGMO 

,VJM ,FGMM . FGPD ,FGPM , 

5FGM 

9 FGP 

9 WFT 

• WGT 

.FART ,FG .FN .SFC i 

6WA32 

t DPWGD5 

• DPWING 

9 WA32DS9 A38 9 AM38 ,V38 tT38 

7H38 

,P38 

9 T S3 8 

9 PS38 

,T39 f H39 9 P39 f TS39 i 

8V39 

■ AM39 

. A39 

t BPRINT,WG37 9 CVDWNG 9 FGMWNG 9 FGPWNG 1 

9FNWING.FNMAtN.FW0VFN.PS39 

, FFOVFN , FCOVFN, FMNOFN.FNOVFD, 

AVJW 

• T22 

,P 22 

>H22 

,S22 .T50 . P50 .H50 

COMMON /ALL5/ 


,CNI ,PRI . ET AI .WACI 

1S50 

f WA22 

tZI 

tPCNI 

2TFFIP 

• CN I P 

9 ETATIP »DHTCI P 9 OHTI 9 BLIP , PC BL IP,PCNIGU 

3ZIDS 

.PCNIDS.PRIOS 

9 ETAIDS 9 WA IDS 9 PRICF 9 ET AI CF»WAICF 

4 TF IPOS • CN I PDS* ET I PDStTFIPCF,CN IPCFf ETIPCF iDHIPCF »WAICDS 

5WA I 

•PCBLI 

.Bit 

•T22DS 

, WA21 ,WG50 .FAR50 ,A24 

6AM23 

.DUMSPL9FXFN2M,FXM2CP9AFTFAN9PUNT 9 PCBLID.P 6 DSAV 

7AM6DSV . ETA A SV» F AR 7S V .T4PBL 

f T41 • FAN ,ISP00L 


XNHPOS fXNIPDS* »nuruj|rninr|rniir|rmu 
VFAN,VINTC f VCOHP f VCOMB.VHPTRBi VlPTftBtVLPTRB, VAFTBN, 


WA FPt WAIP t WACP 
SI 


COMMON / RPMS/ 

COMMON /VOLS/ 

1 VFDUCT 9 VWDUCT 
COMMON /FLOWS/ 

COMMON /UNITS/ 

LOGICAL SI 
DIMENSION 0(9) 

LOGICAL FXFN2M» FXM2CP • DUMSPL 

COMMON /HTURB/TFF X( 15) ,CNX(15, 15) f DHTCX( 15tl5> »ETATX ( 15 » 15 ) t 
1 NTFF S » NPTTFF (15) 

DATA AWOROtWLOf WH I/6HC0HPTB, 6H <L0> *6H (Hi) / 

WORD- A WORD 
IF I SI ) GO TO 100 
RA-.025 2 
AJ-2.719 
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21 
22 

23 

24 

25 

26 

27 

28 

29 
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33 
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43 

44 

45 

46 

47 

48 
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54 
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56 
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59 

60 
61 
62 
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C0NFAC-1.4091E-5 
GO TO 101 

100 RA-286.9 
AJ»1.0 

CONFAC=*1.0966E-2 

101 CONTINUE 

IF ( ISPOOL.EQ.lt GO TO 8 
IF ( IDES.E0. 01 GO TO 1 
CNHPCF=CNHPDS*SQRT(T4J/PCNC 

1 CNHP-CNHPCF4PCNC/SQRTIT4I 
CNHPS-CNHP 
TFFHPS»TFFHP 

CALL SEARCH (- 1. f TFFHP ,CNHP, DHTCHP , ETATHP, TFFX ( 1) , NTFF S , CNX ( 1 , 1 ) f 0 
1HTC X ( 1 , 1 > , ETATX ( 1 , 1 > , NPTTF F ( 1 ) , 1 5 , 15 , l GO) 

IF ( IGO.EQ. 1* OR. I GO. EQ.l l.OR. IG0.EQ.21 > WRITE <8»9> TFFHPS * WLO 
IF t I GQ.EQ. 2.0R .1 GO. EQ.12.QR. I G0.EQ.22 I WRITE 18,9) TFFHPS,WHI 
IF I IGO.EQ. 10. OR* I GO. EQ* 11. OR .IGO.EQ* 12) WRITE (8,10) CNHPS,WLO 
IF ( IGO.EQ.20.OR. IG0.EQ.21.0R .IG0.EQ.22) WRITE (8,10) CNHPS,WHI 
IF (IG0*NE.7) GO TO 2 
CALL ERROR 
RETURN 

2 NOHAP*0 

TFHCAL*WG4*SQRT(T41/(14.696*P4> 

BTUEXT*0. 706705*HPEXT 
I F ( SI ) TFHCAL*WG4*SQRT(T4)/P4 
IF(SI) BTUEXT*HPE XT 
XNHP«XNHPDS*PCNC/ 100. 

XNHDOT-DERIV(itXNHP) 

DHTCC*( BTUEXT+WAC P*(H3-H21)+C0NFAC*PMIHP*XNHP*XNHD0T)/(WG4*T4> 

IF ( IDES.EQ.O) GO TO 5 
TFHPCF*TFHPDS/TFHCAL 
DHHPCF-DHTCC/DHTCHP 
ETHPCF-ETHPDS/ETATHP 

WRITE (6,11) CNHPCF, TFHPCF ,ETHPCF, OHHPCF 
5 tfhcal«tfhpcf*tfhcal 

0 H TC HP »DHHPCF* DHTCHP 
ETATHP*ETHPCF*ETATHP 
DHTC*DHTCC*T4 

ERR ( 1 >* < TFHCAL-TF FHP ) /TFHCAL 
ERR ( 2 1 * ( DHTCC-DHT CHP ) /DHTCC 

CALL THTURB ( DHTC , ETATHP ,FAR4, H4, $4,P4,T50 ,H50 , S50 , P50 ) 
IF(BLHP.LE.O.O) GO TO 6 
FAR50»FAR4*WG4/(WG4*8LHP*(FAR4+1.> ) 

WG50-WG4+BLHP 

H50*(BLHP*H3+WG4*H50)/WG50 

CALL THERMO( P50,H50,T50, S50,XX2, 1 , FAR50, 1) 

GO TO 7 

S FAR50*FAR4 

WG50»WG4 

7 CONTINUE 

IF( VHPTRB.EQ.O.O) GO TO 21 

Q(2>-0.0 

Q ( 3 )*0.0 

WG50P«WG50 

H50P~H50 

P50D0T»DER I V ( 12,P50) 

18 CONTINUE 

CALL THERHO( P50 ,H 50, T50, S50 , XX2, 1 , FAR50 , 0) 

WG50*WG50P-P5000T *VHPTRB/T50/ 1 .4/RA 

U50»H50-RA*AJ*T50 

U50D0T«DERIV( 13,U50) 

H50X« ( WG50P*H50P- ( WG50P-WG50) *U50-U50D0T*P50*VHPTRB/T50/RA ) /WG50 
ERRW* ( H50-H50X ) /H50 
D I R*SQRT ( ABS( H50/H50X) ) 

CALL AFQU IR( Q( 1 > » T 50, ERRW , 0# ,20* , 0*000 i » 01 R , T50T, l GO) 

GO TO (19,21,20), IGO 

19 T50=T50T 
GO TO 18 

20 CALL ERROR 

21 CONTINUE 

IF ( FXFN2M.GR. DUHS PL) GO TO 8 

CALL COIPTB 

RETURN 

8 P5«P50 


74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 

no 

in 

112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 


44 



uouir 


C 


H5=H50 
T 5*T50 
S5-S50 
F AR5=FAR50 

SET MIDDLE TURBINE PARAMETERS TO ZERO* NOT USED 
TFF I P*0* 

CN IP*0 • 

DHT 1*0 • 

DHTCIP*0. 

ETATIP*0. 

CALL COLPTB 
RETURN 


10 

11 


FORMAT ( 19H0*****TFFHP OFF MAP .F 10*4, 2XA6. 
FORMAT ( 19H0***** CNHP OFF MAP .F10* 4.2XA6, 
FORMAT (20H0H.P* TURBINE DES I GN» 5X7HCNHPCF 
1,8H ETHPCF*f E15.8 t8H DHHPCF*. E 15* 8 ) 

END 


11 H***** $$$$$$> 
IIH ***** $*$$$$> 

*, El 5* 8 f 8H TFHPCF 


* E 15*8 


148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 
167 
166 


SIBFTC COINLT 

SUBROUTINE COINLT 
COMMON /WORDS/ WORD 

COMMON /DESIGN/ rr*CM* 

1IDES fJDES t KDES » MODE 1 1 N IT f IDUMP f IAMTP »IGASMX 

2IDBURN. lAFTBNf I DC D t IMCO , I OSHOC » IMSHOC.NOZFLT , ITRYS 
3L0QPER 9 NOMAP » NUMMAP » MAPEDGt TOLALL f ERR (91 

COMMON /ALL1/ ccr 

1PCNFGU,PCNCGU,T*GU ,DUM01 .DUMD2 .OELFG »D|LFN .DELSFC 
2ZFDS i PCNFDSt PRF DS .ETAFDS.WAFDS .PRFCF .ETAFCF.HAFCF 
3ZC0S .PCNCDS.PRCDS , ETACDS. W ACDS .PRCCF , ET ACCF, MACCF 
4T4DS tWFBDS , OTCOOS ,ETABDS, W A3C0S, DPCOOS, DTCOCF.ETABCF 
5TFHPDS ,CNHPDS. ETHPOS > TFHPCF .CNHPCF ,ETHPCF, OMHPCF f T20S 
6TFLPDStCNLPDS, ETL POS ,TFLPCF .CNLPCF t ETLPCF ,OMLPCF ,T21DS 
7T240S iMFDOS »OTOUO$f ETA0DS»WA23DS f DPDUDSiDTOUCF»ETADCF 
8T7DS iHFAOS .DTAFOS ,ETAADS,«G6CDS, DPAFDS.OTAFCF.ETAACF 

40 f A28 * A 


» A7 


t A8 


? A9 


0*55 *A25 • A6 .«» t i" ' » ” — - — 

SPS55 » AM55 f CVDNOZ .CVMNOZ , A8SAV ,A9SAV , A28SAV, A29SAV 

COMMON /ALL2/ 


IT 1 
2 ' 21 
3T4 
4T55 
5CNF 
6CNC 
7CNHP 
8CNLP 
9AM 


tPl 
,P21 
*P4 
t P55 
f PRF 
9 PRC 


t H 1 

9 H21 
»H4 
,H55 
9 ETA F 
tETAC 


tSl 
9 S21 
t S4 
9 S55 
9 WAFC 
9 WACC 


,ETATHP» DHTCHP,DHTC 
f ETATLPt DHT CLP » DHT F 
i ALTP 9 ETAR ,ZF 


t T2 
t T3 
»T5 
9 BLF 
9 W AF 
9 W AC 
,BLHP 
• BLLP 
9 PCNF 


fP2 

tP3 
• P5 
9 BLC 
9 WA3 
9 ETAB 
9 WG5 
t WG55 
rZC 


tS2 

.S3 

»S5 

.6 LOB 
t FAR4 


9 H 2 
9 H3 
t H5 
9 BLDU 
9 WG4 
9 DPCOM .DUMP 
# FAR5 # CS 
. FAR5 5 9 HPEXT 
9 PCNC 9 WFB 


9AM .ALIr ftlAK .*■* .rvnr — 

ITFFHP .TFFLP 9 PCBLF ,PCBLC f PCBLDU.PCBLOB.PCBLHP.PCBLLP 


1XP1 

tXWAF 

, XWAC 

, XBLF 

2XT21 

9 XP21 

9 XH2 1 

f XS21 

3T24 

,P24 

,H24 

# S24 

4T28 

.P28 

, H28 

9 S28 

5WAD 

, WFD 

9 WG2 4 

.FAR24 

6TS28 

, PS28 

9 V28 

,AM28 

7XT55 

9 XP55 

9 XH55 

9 XS55 

8 XWFB 

,XWG55 

, XFAR55 

i,XWFD 

9T6 

9 P 6 

,H 6 

9 S 6 

$T 8 

t P 8 

9 H 8 

,S 8 


COMMON /ALL4/ 


1WG6 

9 WFA 

2 PS 6 

9 V 6 

3TS8 

9 PS 8 

4VA 

,FRD 

5FGM 

9 FGP 

6WA32 

# DPW 

7H38 

,P38 


9 WG7 
« AM6 
9 V 8 

9 V JD 
9 WFT 


,FAR7 
9TS7 
9 AM 8 
,FGMD 
f WGT 


9 XB LDU 
.T23 
9T25 
9 T29 
, ETAD 
9 T S29 
9 XT25 
. XHG24 
*T7 
9 T9 

9 ETAA 
9 PS7 
,TS9 
9 V JM 
9 FART 


9 XH3 
9 P23 
f P25 
,P29 
9 DPDUC 
9 PS29 
9 XP2 5 


9 XFAR24, XXP1 


j TS3 8 9 PS38 .T39 


»P7 
f P9 

,DPAFT 

9V7 

9 PS9 

ff FGHM 

9 FG 

9 A M3 8 

.H39 


y OU MS 1 9 DUMS2 
9 H23 t S23 
»H25 9S25 

9 H29 9 S 29 

, BYPASS, 0UMS3 
t y29 . AM29 
9 XS25 
.DUMB 
9S7 
9S9 


. XH25 


,H7 
9 H9 

t V55 
9 AM7 
9 V9 
t FGPD 
»FN 
, V38 
9 P39 


,V25 

9 AM25 

, AM9 

,FGPM 

,SFC 

,T38 

.TS39 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


45 



10 


11 


1 


2 


3 


4 

5 


8V39 ,AM39 t A39 

9FNWENG,FNMAIN, FWOVFN 
W JW ,T22 * P22 

COMMON /AtL5/ 

IS 50 , WA22 ,ZI 

2TFFIP fCNIP .ETATIP 
3ZI0S , PCN IDS, PRE OS 
4TF EPOS pCN EPOS t ETE POS 
5WAI ,PCBL I ,BLI 
6AM23 »OUMSPLt FXFN2M 
7AM6DS V, ETAASV. FAR 7SV 
COMMON /DELCH/ DEtTl 
COMMON /UNITS/ SI 
LOGICAL SI 

OATA AW0RD/6HC0INLT/ 

WORD* A WORD 

IFCSI ) GO TO 10 

AJ*778.26 

G«32. 174049 

REF59-2.0855531E07 

R* !• 986375 

GO TO 11 

AJ*1.0 

G*1.0 


« BPR I NT* WG37 fCVOWNG,FGMWNG,FGPWNG, 
t PS39 » FFOVFNf FCOVFN, FMNOFN, FNOVFD« 
»H22 9 S22 »T50 , P50 ,H50 

» PCN I 9CNI , PR I 9ETAI 9 WAC I 9 

9DHTCIP9OHTI ,BLIP •PCBLIPfPCNEGUt 
9 ETA IOS9 WA IDS 9 PR ICF , ET AI CF ,W AICF , 
9TFlPCF f CNIPCF f ETIPCFt DH IPCF , WAICOS , 
tT22DS 9WA2I f WG50 ,FAR50 r A24 , 
9FXM2CP9 AFTFANf PUNT , PC BL ID9P6DSAV, 
f T4PBL 9T4I v FAN .ISPOOL 


REF59*6*3567658E06 

R*8314*34 

ALT-ALTP*REF59/(REF59*ALTPI 

CALL ATMOS! ALT , T1 STD 9 XXI , XX2 9 XX3 f DELTA ,C S ,XX4, IIER> 

P 1*0ELTA 

IFCSI) P1-101325.*0ELTA 
T 1*T1 STD 

IF( IAMTP.EQ.2) T1*T1 STD+DELT1 

IF ( I AMTP • EQ«5) CALL RAM2 (AM 9 STAR ) 

IF ( I AMTP* NE* 1* AND* I AMTP • NE*5 ) CALL RAM ( A M , ET AR > 

FAR*0*0 

CALL PROCOM (FAR, Tl, CS 9XX2,XX3,Rl9 PHI 1,H1> 

S1»PHI 1-R1*AL0G( DELTA! 

H2«H1+(AM*CSI**2/(2.*AJ*G> 

P2T*1* 

IFCSI > P2T*101325* 

DO 1 1*1,10 

CALL THERMO ( P2T, H2, T2T ,S2T, AW ,0, 0*0, D 

IF ( ABS( S2T-S11 •LE*0«0001*S1 I GO TO 2 

P2T*P1 ♦EXP ( l AW /R) ♦( < S2T-S 1 !♦( R /AW >*ALOG( P2 T/ PI ) ) ) 

CALL ERROR 
RETURN 

IF UAMTP.EQ.3*0R*IAMTP*EQ*4> ETAR-P2/P2T 
P2«ETAR*P2T 

IF ( IAMTP*NE*4> CALL THERMO ( P2,H2 ,T2 , S2 ,XX5 ,0,0.0 ,1 » 

IF ( I AMTP* EQ* 4> CALL THERMO ( P2»H2,T2, S2 ,XX5 90,0*0,0) 

IF (tNIT*EQ*l> GO TO 5 
IF ( I0ES.EQ.1) GO TO 3 
ir ( H0DE*EQ*3) GO TO 4 

PCNF*GUESS( MODE , T 4»T4DS, PCNC 9 PCNCDS, WF 8 , WFBDS, T2 9 T 2 DS, PCNFDS) 

PCNFGU-PCNF 

GO TO 4 

PCNF-PCNFDS 

PCNFGU*PCNF 

T 2DS*T 2 

ZF-ZFDS 

RETURN 

END 


*8 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 


$ IBFTC COINTC 

SUBROUTINE COINTC 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES , JOES ,KDES ,MODE ,INIT 9 IDUMP , IAMTP 9 EGASMX, 
2IDBURN, I AFT BN 9 1 OCD 9 EMCD 9 IDSHOC 9 IMSHOC, NOZF LT , ITRYS , 
3LOOPER r NOMAP , NUMMAP,MAPEDG, TOLALL ,ERR (9 1 


1 

2 

3 

4 

5 

6 



o 

c 


COMMON / At L 1 / 

1PCNFGU jPCNCGUt T4GU ,OUMDL tOU^D2 » DEL F G , DE IF N , C E L S F C 
2ZFDS f PCNFDSf PRF CS , ETAFDS , HA FDS ,PRFC F , ET AF CF , W AFCF 
3ZCDS « PC NCOS, PRC OS f ET ACDS , W ACDS ,PRCCF » ET AC CF , w ACCF 
4T4DS ,WFBDS , DTC CDS , E TA BD S, W A 3CDS , CPC OD S , DTCOC^ > E TA BC F 
5TFHPDS f CNHPDSf ETHPOS r TFHO CF , C NHPC F , E J HP C F , DH HP CF , T 2D S 
6TFLPDS tCNLPDSf ETL PD$ f TFLPCF , C NLPCF f ETL PCF , DH LP CF , T 21DS 
7T24DS » WF DOS , DTDUDS, ETADDS, WA23DS , DPDUDSt DTDUCF ,E TADCF 
8T7DS 


9A55 

, A25 

, A6 

,A7 

, A8 

> A9 

, A28 

t A 29 , 

16 

SPS55 

, AM55 

,CVDNOZ 

, C VMNOZ 

, A 8 S AV 

, A 9S AV 

, A28SAV 

, A29SAV 

17 

COMMON 

/ALL2/ 







L8 

IT 1 

tPl 

,H1 

,S1 

, T 2 

,P2 

>H2 

i S 2 y 

19 

2T21 

t P21 

, H21 

, S21 

,T3 

>P3 

t H3 

» S3 , 

20 

3T4 

tP4 

t H4 

,S4 

,T5 

t P5 

,H5 

»S 5 , 

21 

4T55 

t P55 

, H 55 

t S 55 

, B L F 

, B LC 

, BLDU 

> BLOB t 

22 

5CNF 

» PRF 

, ETA F 

, WAFC 

, W AF 

, W A3 

, WG4 

, F AR4 # 

23 

6CNC 

» PRC 

, ETAC 

, WACC 

t W AC 

»ETAB 

, DPCOM 

, DUMP f 

24 

7CNHP 

t ETATHP 

, DHTCHP 

,DHT C 

, B LHP 

» WG5 

,FAR5 

>C$ t 

25 

8CNLP 

,E TATLP 

, OHTCLP 

, DHTF 

,BLLP 

, WG5 5 

, FA R5 5 

fHPEXT , 

26 

9AM 

, ALTP 

, ETAR 

tZF 

, PC NF 

>zc 

, PC NC 

9 W F B , 

27 

STFFHP 

, TFF L P 

, PCBLF 

i PCBLC 

, PC BLDU 

, PC BLOB 

t PCBLHP 

,PCBLLP 

28 

COMMON 

/ALL3/ 







29 

1XP1 

, XWAF 

, X WA C 

t X BLF 

» XBLDU 

, XH3 

, DU MS 1 

, DUMS2 t 

30 

2XT21 

, XP2 1 

, XH2 1 

, XS2 1 

, T23 

»P23 

,H2 3 

9 S23 , 

31 

3T24 

, P24 

, H24 

, S24 

>725 

>P25 

t H25 

> S 25 r 

32 

4T28 

t P 28 

, H28 

,S23 

,T 25 

>P2 9 

,H2 9 

,S29 , 

33 

5W AD 

tWFD 

, WG2 4 

, F AR 2 4 

, ETA C 

, DPDUC 

, BYPASS 

t DUMS3 « 

34 

6TS28 

, PS28 

, V28 

t AM28 

, T S29 

, PS29 

r V29 

,AM29 , 

35 

7XT55 

, XP55 

, XH55 

, X S55 

, X T 25 

,XP25 

, XH25 

, X $2 5 , 

36 

8X WF8 

,XWG55 

, XF A R55 

, XWFD 

, XWG24 

, XF AR24 

, XXP1 

t DUMB , 

37 

9T6 

tP6 

, H6 

,S6 

> T 7 

,P7 

» H7 

t S 7 > 

38 

ST 8 

,P8 

i H 8 

,S8 

> T 9 

f P9 

,H9 

iS9 

39 

COMMON 

/ ALL4/ 







40 

1WG6 

, WF A 

, WG7 

, F AR 7 

>ETAA 

,DPAFT 

, V55 

9 V25 9 

41 

2PS6 

tV6 

, A M6 

,TS7 

* P S 7 

>V7 

, AM7 

t A M2 5 9 

42 

3TS8 

,PS8 

i V8 

, AMS 

»TS9 

, PS9 

, V9 

,AM9 , 

43 

4VA 

, FR D 

, VJD 

, F GMD 

>V JM 

, FGM M 

, FGPD 

,FGPM 9 

44 

5FGM 

, FGP 

, WFT 

, WGT 

, F ART 

*FG 

>FN 

• SFC , 

45 

6WA32 

, DPWGDS 

, D PW ING 

, W A32DS 

, A3 8 

, AM38 

t V38 

9 T 3 B 9 

46 

7H38 

i P 38 

, T S3 8 

, P S38 

, T 3 9 

, H3 9 

, P39 

>TS39 , 

47 

8V39 

, AM39 

, A 39 

,BPR I NT 

, W G37 

tCVDWNG 

,, FGMWNG 

i F GP WNG» 

40 

9FNWI NG 

, , FNMA IN 

1, fwovfn 

,PS39 

, FFOVFN 

If FCOVFN 

,,fmnofn 

|,FNOVFD, 

49 

SVJW 

,T22 

fP22 

,H22 

> S22 

, T50 

,P50 

,H50 

50 

COMMON 

/ALL 5/ 






51 

1S50 

, WA 22 

tZl 

, PCN I 

, C N I 

, PR I 

rETAI 

9 w AC I 9 

52 

2TFFIP 

, CN I P 

, ETATIP 

,DHTC I F 

>,DHTl 

f BLIP 

, PC BLIP 

, PCN I GU i 

53 


9 

10 

11 

12 

13 

14 

15 


133 


32IDS »PCN IDS, PRI DS , ETA I DS > W A IDS ,PRICF , ET AI CF , W A l CF , 54 

4TFIP0StCNIPDS,ETI PDS , TF I PCF , C N I PC F , ET I PCF, DH IP CF ,W AI CDS, 55 

5WA! fPCBL I ,BLI ,T22DS ,WA21 ,WG50 ,FAR50 ,A24 , 56 

6AM23 fDUMS PL , F XF N2M ,FXM2CP,AFTFAN,PUNT , PC BL I D , P 6DSAV 9 57 

7AM6DSV f ETAASV,FAR7SV,T4PBL ,T41 , F AN ,ISPOOL 58 

COMMON /VOLS/ VFAN, V I NTC , VCOMP , VC OMB, VHPTR8, VI PTRB , VLPTRB, V AFT BN, 59 

1 VFDUCT ,VWOUCT 60 

COMMON /FLOWS/ WAFP , WA IP , WAC P 61 

COMMON /UNITS/ SI 62 

COMMON /I NT/ CNX l 15>,PRX(15, 15) , WAC XI 15, 15) , ETAX (15, 151 , 63 

1NCN f NPT( 15 ) 64 

COMMON/DUMINT/CNX XI 15) , PRXX 1 1 5 , 15 1 ,WACXX(15, 15 ) , ET AXX I 15 , 1 5 ) , 65 

1NCNX*NPTX( 15) 66 

LOGICAL FXFN2M , FX M2CP, AFTFAN, DLMSPL ,F AN , SI 67 

DIMENSION Q I 9) , ML HI 2 ) 68 

DATA A WORD , WLH/6HC0I NTC, 6H (LO) ,6h IHI) / 69 

WORD 3 AWORD 70.' 

IF I SI > GO TO 100 71 

T STD= 518*668 72 

PSTD«1.0 73 

R A= *0 2 52 74 

A J* 2* 7 19 75 

GO TO 101 76 

TSTD*288.149 77 

PSTD-101325. 7B 

R A-286* 9 * 79 

_A J* 1*0 . . B0 




101 CONT iNUfc 

IF ( .NOT. AFTFAN) GO TO 1 

T22S-T22 

H22S-H22 

S 22S*$ 22 

P22S-P22 

T22-T 2 

H22*H2 

S22-S2 

P22=P2 

1 THETA- SORT ( T22/TSTD > 

DELTA* P22/PST0 

IF ( • NOT* FAN) WAI *WAF-BLF 
IF ( IDES.NE.l) GO TO 2 
PRI-PRIDS 
PCBL I-PCBL ID 

IF ( .NOT. FAN) MAI CDS- WAI* THETA /DELTA 
IF (.NOT. FAN) DUN SPL*. TRUE* 

M AC I-WAICDS 
THETAO-THETA 
M A IDS -MAC l ♦DELTA/ THE TA 
ETAI-ETAIOS 

2 IF ( .N0T.FXFN2M) GO TO 3 

C FAN AND MIDDLE SPOOL ROTATE AT SAME SPEED 
$PDFAN-CNF*SQRT(T2/TSTO> 

CN I* S PDF AN/ THETA 
P CN 1-1 00 .*CN I* THETA/THE TAD 
IF UDES.EQ.l) PCNI DS-PCN I 

3 CN I-PCN I*THETAD/( 100.*THETA) 

Z1*AMAX1(ZI,0.) 

Z I-AMINKZ I, l. ) 

CNIS-CNI 

IF ( .NOT.DUMSPL) GO TO 4 

CALL INDUMY (CN I , ZI , WA ICDS , IDE S) 

CALL SEARCH (ZI ,CNI f PR I , MAC I ,E TA I ,CNXX ,NCN X, PRXX »M ACXX , ETAXX , NPTX , 
115,15, IGO) 

GO TO 5 

4 CONTINUE 

CALL SEARCH (Z I ,CNI, PR I, MAC l ,ETAI,CNX( 1) , NCN ,PRX (1,1), WACX( 1, 1 ) ,ET 
1AX(1,1),NPT(1) ,15,15, IGO) 

5 CONTINUE 

IF ( (CNI-CNIS)*GT..0005*CNI) MAPEDG-1 

IF ( IG0.EQ*1.0R.IG0.EQ#2) WRITE (8,12) CNI S, MLH( IGO) 

IF (.NOT. FAN) MAC I-W AI*THETA/DELTA 
WA I -W AC I* DELTA /THETA 
MA22-WA I 

IF (IDES.NE.l) GO TO 7 
T220S-T22 

IF (AFTFAN) T22DS-T22S 

IF (•NOT.DUMSPL) PR ICF-( PR IDS- 1. ) / ( PR I- 1. ) 

ETAICF-ET AIDS/ ETA I 
WA ICF—WA IDS/WA I 
IF (.NOT.DUMSPL) GO TO 6 
PRICF-1. 

ETAICF-1. 

WAICF-1. 

6 CONTINUE 

WRITE (6,13) PRICE, ETA ICF, WAIC F,T22DS 

7 PR I -PR ICF* ( PR I — 1. )♦ l. 

ETAI»ETAICF*ETAI 

WA I-WA ICF* WA I 

WAIP-WAI 

MAC I-WACI*WAICF 

WA22-WAI 

CALL THCOMP ( PR I , ETA I , T22 , H22 , S22 , P22 , T2 1 ,H2 1 , S21 , P2 1) 

IF(VINTC.EQ.O.O) GO TO 21 

Q( 2 )-0.0 

Q( 31-0.0 

H21P-H21 

P 2 1 DOT *DE R I V ( 6 , P2 1 ) 

18 CONTINUE 

CALL T HERMO( P21,H21fT21,S21,XX2,0,0.0,0) 
WAI-WAIP-P21D0T*VINTC/T21/1.4/RA 
U2 1-H21— AJ*RA*T21 


81 

82 

83 

84 

85 
66 

87 

88 

89 

90 
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95 

96 
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103 

104 

105 

106 
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108 
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110 
111 
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113 
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120 
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123 

124 
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127 

128 
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i 


H21X” ( HAIP*H21P-( HA IP-HA I l*U21-U2100T*P21*VINTC/T21/RAJ/HAI 

ERRH-IH21-H21X1/H21 

DIR»SQRT(A8S(H21/H21XI I 

CAll AFQUIR<0< 11. T21.ERRH.0., 20., 0.0001, DIR. T21T.IGOI 

GO TO l 19,21,201, IGO 

T21-T21T 

GO TO 18 

CALL ERROR 

CONTINUE 

IF I .N0T.DUMSPL1 GO TO 8 
PR 1*1. 

ETAI-l. 

T21=T22 

H21-H22 

S21-S22 

P21-P22 

IF( ISPOOL.EO.il HA21-HAI 
CONTINUE 

IF ( IOES.NE.il GO TO 9 
6LI»PCBLI*HAl 
HA21-HA22-BLI 
HA32-BLI 

*F IFAN.OR.IDES.EQ.il HAC-HA21 

CONTINUE , 

IF l ABSICNI— CNISI «LE.0.001*CNI SI GOTO 10 
HRITE (8, 14) CNIS.CNI 
CALL ERROR 

PCNI«100.*THETA*CNI/THETAD 

IF ( .N0T.AFTFAN1 GO TO 11 

T22-T22S 

H22-H22S 

S22-S22S 

P22*P22S 

CALL COCOMP 

RETURN 


sss :ss:,« 

^FORMAt''** 10H0CNI^HAS= H , E15«8^ 1 1H^ AND NOH= .E15.B.24H CHECK PCNI I 

INPUT I 

END 


tIBFTC COIPTB 

SUBROUTINE COIPTB 
COMMON /WORDS/ HORD 
COMMON /DESIGN/ 

1IDES .JOES ,KDES .MODE »INIT i 
2I0BURN, IAFTBN, I OC D ,IMCD .IDSHOCi 
3L00PER. NOMAP , NUMMAP.MAPEDG, TOLALL i 
COMMON /ALL 1/ 

1PCNFGU.PCNCGU, T4GU .DUMD1 , DUMD2 
2ZFDS .PCNFDS, PRF DS .ETAFDS.HAFOS 
32 CDS .PCNCDS.PRCOS , ETACDS, HACOS 
4T4DS ,HFBOS , DTCOOS , ETABOS. U A3CDS 

5TFHPDS .CNHPDS, ETHPOS .TFHPCF .CNHPCF 
6TFLP0S .CNLPDS, ETL PDS.TFLPCF.CNLPCF 
7T24DS ,HFODS , DTDUOS , ETADDS.HA23DS 
8T70S .UFAOS , OTAFDS , ETAAOS, HG6CDS 
9A55 » A25 .A6 »*7 »*jj 


.IDUMP , I AMTP , IGASMX, 
, IMSHOC .N02F LT .ITRVS , 
.ERRI9I 


, DELFG 
, PRFCF 
.PRCCF 
, DPCODS 
.ETHPCF 
.ETLPCF 
. .DPDUDS 
i.DPAFDS 
, A9 

.A9SAV 


.DELFN 
,ET AFCF 
.ETACCF 
i, OTCOCF 
, DHHPCF 
.DHLPCF 
l.DTDUCF 
i.DTAFCF 
, A28 
, A28SAV 


, DELSFC, 
, W AFCF , 
•HACCF , 
•ETABCF, 
,T2DS . 
.T210S , 
.ETAOCF, 
•ETAACF, 
.A 29 , 

f, A29SAV 


/ALL2/ 

,P1 « HI 

.Si 

iT 2 

.P2 

. H2 

»S2 

9 

« P2 1 • H21 

» S21 

t T3 

»P3 

. H3 

»S3 

» 

f p4 

,H4 

,s* 

* T5 

»P5 

fH5 

t S 5 

» 

tP55 

, H55 

» S55 

f BLF 

, BLC 

f BLDU 

t B LOB 

* 
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100 

101 

1 

2 


5CNF 

6CNC 

7CNHP 

8CNLP 

9AM 


tPRF t ETA F »WAFC ,WAF ,WA3 ,WG4 » FAR4 

»PRC rFTAC »WACC , WAC ,ETAB fOPCOM «OUMP 

,ETATHP,DHTCHP,DHTC » BLHP , WG5 ,FAR5 f CS 

, a^I LP, ^ CLP ' DHTF ,8LLP * Wn55 ’ FA *55 .HPEXT 
,ALTP »ETAR tl F , PCNF f ZC t PC NC UFA 

^0MML , /ArL3/ ,PCBLF ' PCBLC f , PC BLOB, PC BLHP , PCBLL P 


1XP1 

2XT21 

3T24 

4T28 

5WAO 

6TS28 

7XT55 

8XWFB 

9T6 

ST 8 


t XWAF 
* XP2 1 
t P 24 
»P28 
fWFD 
t PS28 
» XP55 


rXWAC 
t XH2 1 
» H24 
t H28 

t WG2 4 
» V28 
r XH5 5 


tXBLF 
»X$21 
t S24 
» S28 


fXBLDU 
» T23 
»T25 
»T29 


• F AR 24 , E TAC 
» AM2 8 f T S29 


f XH3 
t P23 
rP25 
»P29 


f DUMS1 
» H23 
i H2 5 
, H29 


» 0UMS2 
» S 23 
r S 25 
t S 29 


» X S5 5 


XT25 ,XP25 


»XWG55 , XF AR55 , X WFD ,XWG24 ,XFAR24,XXPl 


tP6 

»P8 


COMMON /ALL4/ 


,H6 
, H8 


» S 6 
» S 8 


,T7 
f T 9 


» DPDUC , BYPASS, DUMS3 
»PS29 , V29 ,AM29 

XH 25 » X $2 5 

, DUMB 
,S7 
rS9 


tP 7 
,P9 


,H7 

»H9 


1MG6 

2PS6 

3TS8 

4V A 

5FGM 

6WA32 

7H38 

8V39 


,WFA 
,V6 
, P S 8 
,FRO 
, FGP 


,OPAFT 

tV7 

,PS9 

, FGMM 

,FG 

,AM38 

,H39 


, V55 
, AM 7 
»V9 
iFGPD 
,FN 
, V38 
P39 


tV2 5 
, AM25 
, AM9 
, FGPM 
,SFC 
>T30 
i T S39 


,C VDWNG, FGMW NG , F GPWNG 
» F FCVFN , FCO VFN, FMNOfN , FNOVFD 
»S22 ,T50 , P50 , H 50 


,WG7 , F AR 7 , E T A A 

fAM6 , T S7 , P S 7 

» V 8 , AM8 t T S9 

fVJD ,FGMD 

»WFT , WGT , F ART 

r DPHGDS , OPW ING , WA32DS , A 38 
»P38 , TS3 8 ,PS38 ,T39 

, AM39 ,A39 ,BPRINT,WG37 

9FNW ING, FNMA IN, F WO VFN , P S39 
IVJW ,T22 , P 22 , H22 

COMMON /ALL5/ 

|J"* P »CMIP » etati p»dhtc i p f ohti .’bl'ip I PC BL I p,' pcn !gu ' 

^Tc^onc ,PCN I0S * PRI Ds 9 ETAI DS » WA IDS , PP ICF , ET ATCF. WA ICF * 

:^^ :p6osav ' 

/RPMS/ XNH PDS,XNlPOS,X NLPOS , PM I HP , PM [ IP.PMI1 P 

COMMON /FLOWS/ WA FP , WA I P , W ACP 
COMMON /UNITS/ SI 
OIMENSION Q ( 9 ) 

LOGICAL AFTFAN, FX FN2 M , F X M2CP , S I 

DATA AW0RD,HL0,WHI/6HC0IPTB,6H (LO) ,6H {HD / 

I F ( 5 I ) GO TO 10 9 
RA=.025 2 
A J=2 ♦ 719 

CONFAC= 1 .4091E- 5 
GO TO 101 
R4=286.9 
A J= 1 • 0 

CONF AC = 1 . 0966E-2 
CONT INUE 
H22SAV=H22 
IF (AFTFAN) H22=H2 
WORD= A WOR D 

IF ( IOES.EO.O) GO TO 1 
CNIPCF=CNI POS*SQRT( T50)/PCNI 

CN lPCF=CNHp 0S*SQRT(T50)/PCNI 
CN IP=CNIPCF*PCNI/SQRT( T50) 

C N IP S = CN I P 

TFF I P S = TFF IP 

IF (FXM2CP) GO TO 2 

IS^CNY< U1>)dhTCY( l.n.ETATVU Jn !npttsf(1) I Ii5 P X5 T igo> ,TFFV< i,,NTFV 

» : “ssis-a? 
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45 
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82 
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87 

88 

89 
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6 


7 

8 


18 


19 

20 
21 


C 

C 

C 

9 

10 
11 


If i IG0.EQ.20.0R.IGQ.EQ.21.0R.IG0.EQ.22) WRITE (8,10) CNIPS.WHI 

IE ( IGO*NE *7 > GO TO 3 

CALL ERROR 

RETURN 

NOMAP-O 

TF ICAL«WG50*SQRT(T50>/(14.696*P50> 

IF(SI> TF ICAL*WG50*SQRT( T50) /P50 
XN IP*XNI PDS^PCNI / 100* 

XNI00T*DERIV(2t XNIP) 

BTUEXT *• 706705*HPEXT 

IF(SI> BTUEXT*HPE XT 

DHACEL*CONFAC*PMI IP*XNIP*XNI00T 

OHT IC* ( WAIP* (H2 1- H22 M-DHACELI / ( WG 50*T50) 

I F ( FXM2CP I DHTIC* (BTUEXT*WACP*(H3-H2mwAIP*(H21-H22nDHACELI/ 

1 I WG50+T50) 

IF C I DES.EQ.O) GO TO 6 

TF IPCF*TFIPD$/TFI CAL 

OH IRC F*OHT IC/DHTC IP 

ET IPCF*ET I POS/ETATIP 

IF (FXM2CP) TF IPCF*T FHPOS/TF I CAL 

IF (FXM2CP) ET I PC F-ETHPDS /ETAT IP 

WRITE (6, ID CNIPCFtTFIPCFfET IPCF »DHIPCF 

TF ICAL*TFIPCF*TF l CAL 

DHTC IP-DHIPCF*DHTCIP 

ET AT IP-ET I PCF*ETATIP 

OHT I*DHTIC*T 50 

N 1*8 

N 2*9 

IF (FXM2CP) Nl* 1 

IF IFXM2CP) N 2*2 

ERR(N1>*( TF ICAL-TFFI P ) /TF ICAL 

ERR(N2)*(0HTIC-DHTCIP)/DHTIC 

CALL THTURB (OHTI # ETATIP»FAR50,H50,S50 f P50tT5,H5,S5,P5> 

I F ( BLIP *LE *0*0 I GO TO 7 
FAR5*FAR50*WG50/( WG50+BL I P* IF AR50+ l. > > 

WG5-WG50+BLIP 

H5«(BL IP*H3*WG50*H5> /WG5 

CALL THERMO (P5,H5,T5,S5,XX2» It FAR5,1J 

GO TO 8 

FAR5-FAR50 

WG5*WG50 

CONTINUE 

IF (V I PTRB.EQ.0.0 > GO TO 21 

Q ( 2 )*0.0 

0(31-0.0 

WG5P-WG5 

H5P-H5 

P SOOT *OER I V I 14,P5> 

CONTINUE 

CALL T*eRW0(P5 f H5,T5»$5tXX2,l,FAR5,0> 

WG5*WG5P-P5DOT *VI PTRB/T5/ 1.4/RA 

U5»H5-RA*AJ*T5 

U5D0T-DER IV(15»U5I 

H5X*( WG5P*H5P-( WG5P-WG5) *U5-U5D0T*P5*V IPTRB/T5/RA) /WG5 
ERRW* ( H5— H5X >/H5 

0 1 R* SORT ( ABS(H5/H5XI I „ „ 

CALL AFQUIR(0( l>tT5, ERRW t0.t20.t 0.0001 tOIRtTST ,IGO) 

GO TO ( 19 f 21,20), IGO 

T5-T5T 

GO TO 18 

CALL ERROR 

CONTINUE 

H22-H22SAV 

CALL COLPTB 

RETURN 


FORMAT ( 19H0*****TFF IP OFF MAP ,F10*4, 2XA6 t 
FORMAT ( 19H0***** CHIP OFF MAP ,F10 *4, 2XA6 , 
FORMAT (20H0I.P. TURBINE OES I GNt5X7HCNI PCF 
1,8H ET IPCF* t E15.8 # 8H DHI PCF*, E 15. 8 > 

END 


UH*****$m*s> 
UH ***«* $$$$*$) 

* t El 5. 8 , 8H TFIPCF* 


t E 15.8 
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123 

124 
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SIBFTC COLPTB 

SUBROUTINE COLPTB 
COMMON /WORDS/ WORO 
COMMON /DESIGN/ 

LIDES tJDES » KOE S f MODE ,INIT ,IDUMP ,IAMTP • IGASMXr 
2IDBURN, IAFTBN, IOCD 9 IMCD 9 I DSHOC t IMSHOC,NOZFLT r ITRYS , 
3LOOPER, NOMAP , NUM MAP, MAPEDG, TOLALL tERR (9 ) 

COMMON /ALLI/ 

1PCNFGU 9 PCNCGUf T4G U .DUMOl ,DUHD2 »DELFG ,DELFN rDELSFC, 
2ZFDS 9 PCNFDSt PRF DS , ETAFDS 9 WAFDS ,PRFCF , ETAFCF,WAFCF , 
3ZCOS 9 PCNCDS 9 PRC DS 9 ETACDS 9 W ACDS 9 PRCCF 9 ET ACCF 9 WACCF , 
4T40S 9 WFBDS 9 DTC ODS 9 ETABDS, WA3CDS f DPCODS, DTCOCF,ETABCF t 

5TFHPDS 9 CNHPDS 9 ETHPDS 9 TFHPCF 9 CNHPCF 9 ETHPCFf DHHPCF , T 2DS 9 
6TFLPDS,CNLPDS,ETLPDS,TFLPCF > CNLPCF,ETLPCF,DHLPCF,T21DS , 


7T24DS 

9 WFDOS 

* OTDUOS tETAOOSt WA23DS rDPDUDS, DTDUCF.ETADCF, 

8T7DS 

, WFADS 

•DTAFOS, ETAAOSt WG 6 CDS rDPAFDS.DTAFCF.ETAACF, 

9A55 

9 A25 

9A6 

1 A7 

9 A 8 

9A9 

9 A28 

9 A29 

SPS55 9 AM55 9 CVDNOZ , CVMNOZ , A 8 SAV 
COMMON /ALL2/ 

, A9S AV 

» A28S AV r A 29 SAV 

IT 1 

9 PI 

t H 1 

9 SI 

9 T 2 

,P2 

9 H2 

,S2 

2 T 2 1 

t P21 

9 H 21 

,S 21 

,T3 

9P3 

9 H3 

• S3 

3T4 

fP4 

9 H4 

9 S4 

,T5 

fP5 

9 H5 

9S5 

4T55 

,P55 

9 H 55 

9 S55 

, BLF 

9 BLC 

, BLDU 

9 BLOB 

5CNF 

tPRF 

9 ETA F 

,WAFC 

9 WAF 

9 WA3 

t WG4 

,FAR4 

6CNC 

9 PRC 

9 ETAC 

9 WACC 

9 WAC 

9 ETAB 

9 DP COM 

• DUMP 

7CNHP 

9 ETATHF 

*9 DHTCHP 

' , DHTC 

9 BLHP 

9 WG5 

f FAR5 

9 CS 

8CNLP 

9 ET ATLP 

►,DHTCLP 

’ ,DHTF 

9 BLLP 

9 WG55 

f FAR55 

9 H PE XT 

9AM 

t ALTP 

9 ETAR 

9 Z F 

9 PCNF 

9 ZC 

9 PCNC 

9 WFB 

STFFHP 

COMMON 

9 TFFLP 
1 /ALL 3/ 

9 PCBLF 

9 PC 8 LC 

, PC BL(WJ , PC BLO B , PC BLHP 

9 PCBLLP 

1XP1 

9 XWAF 

9 XWAC 

f XBLF 

tXBLDU 

9 XH3 

9 DU MSI 

9 DUMS2 

2XT21 

t XP2 1 

,XH2I 

9 XS21 

t T23 

t P23 

9 H23 

• S23 

3T24 

,P24 

9 H24 

9 S24 

1 T25 

f P25 

9H25 

9 S25 

4728 

9 P28 

» H26 

9 S28 

9T29 

9P29 

9 H29 

9 S29 

5W AD 

9 WFD 

9 WG24 

, F AR 2 4 

9 ETAO 

9 DPDUC 

9 BYPASS 

•DUMS3 

6TS28 

9 PS28 

9 V28 

9 A M2 8 

9 TS29 

, PS29 

9 V29 

,AM29 

7XT55 

9XP55 

9 XH5 5 

,X$55 

9 XT25 

9 XP25 

,XH 25 

9 XS25 

8XWFB 

9 XWG55 

9 XFAR55 

9 X WFD 

9 X WG24 

, XFAR24 

f XXP1 

9 DUMB 

9T6 

tP6 

9 H6 

9 $6 

t T7 

iP7 

f H7 

9S7 

ST 8 

COMMON 

tP8 

/ALL4/ 

9 H 8 

9 S6 

• T9 

tP9 

9 H9 

tS9 

1WG6 

9 WFA 

9 WG7 

,FAR7 

9 ETAA 

9 DPAFT 

9 V55 

,V25 

2PS6 

, V6 

9 AM 6 

,TS7 

9 P S 7 

9 V7 

9 AM 7 

9 A M2 5 

3TS8 

,PS8 

9 V 8 

, AM8 

,TS9 

,PS9 

9 V9 

t AM9 

4VA 

9 FRO 

9 VJD 

9 FGMD 

9 V JM 

,FGMM 

9 FGPD 

,FGPM 

5FGM 

9 FGP 

9 WFT 

,WGT 

, FART 

,FG 

9 FN 

9 S FC 

6WA32 

9 OPWGDS 

9 DPW ING 

t WA32DS 

9 A38 

9 AH38 

9 V38 

t T38 

7H38 

9 P38 

9 TS3 8 

,PS38 

,T39 

,H39 

9 P39 

9 T S39 

8V39 

9 AM39 

9 A39 

9 BPR I NT 

,WG37 

tCVDWNG 

9 FGMWNG 

9 F GP WN G 

9FNWING 

9 FNMA IN 

9 FWOVFN 

9 PS39 

9 FFOVFN 

, FCOVF N 

9 FMNOFN 

9 FNOVFD 

SVJW 

COMMON 

f T22 

/ALL5/ 

,P22 

,H22 

9 S22 

,T50 

9 P50 

»H50 

IS 50 

,WA22 

9 ZI 

9 PCN I 

,CNI 

9 PR I 

tETAI 

9 WAC I 9 

2TFFIP 

,CNIP 

, ETATIP 

9 DHTCIP 

9 OHTI 

9 BLIP 

9 PC BL I P 

9 PCNIGU 9 


3ZIDS »PCNIDS,PRI D$ , ETA I DS, WA IDS ,PRICF ,ETAICF,WAICF , 
4TFlPDS,CNIPDS,ETlPDS,TFlPCF,CNlPCF,ETIPCF,DHIPCF f WAICDS, 

5WAI , PCBL I , BLI ,T220S f WA21 ,WG50 f FAR50 ,A24 , 

6AM23 9 DUMSPL 9 FXF N2M,FXM2CP, AFTFAN, PUNT , PC BL ID, P 6 DSA V , 

7AH6DSV »ETA ASV* FAR 7SV ,T4PBL .T41 f FAN , I SPOOL 

COMMON /RPMS/ XNHPDS 9 XNI P DS, XNLPDS 9 PM I HP , PMI IP ,PMI LP 
COMMON /VOLS/ VFAN 9 V I NTC , VCOMP , VCOMB, VHPTRB , VI PTR 8 , VLPTRB 9 V AFTBN » 
1 VFOUCT 9 VWOUCT 
COMMON /FLOWS/ WA FP , WA IP , WACP 
COMMON /UNITS/ SI 
LOGICAL AFTFAN f FXFN2M , FXM2CP 9 SI 
COMMON /LTURB/TFF XC 15) ,CNX ( 15 , 15 ) 9 OHTC X ( 15 9 151 rETATX (15 , 15 > , 
1NTFFS , NPTTFF ( 15 ) 

DIMENSION Q ( 9 > 

DATA AWORD 9 WLO 9 WH I/ 6 HCOLPTB 96 H (LO> , 6 H (HI) / 

WORD-AWORO 

IF (SI > GO TO 100, 

RA*«0252 
A J«2« 7 19 


1 

2 

3 

4 

5 

6 

7 
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9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
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21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 
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37 

38 

39 

40 

41 

42 

43 

44 

45 
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48 
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50 
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65 
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C0NFAC*l*4091E-5 
GO TO 101 

100 RA-286.9 
AJ-1.0 

CONFAC-1.0966E-2 

101 CONTINUE 

IF I I DES.EQ.O) GO TO 1 
CNLPCF«CNLPDS*SQRT(T5)/PCNF 

1 CNLP-CNLPCF*PCNF/SQRT(T5) 

CNLPS-CNLP 

TFFLPS»TFFLP 

CALL SEARCH ( - 1* , TFFLP ,CNLP, DHTCLP t ETATLP, TFFX U I , NTFF S»CNX ( 1 , l > ,D 
lHTCX(l,i>,ETATX(l,l>,NPTTFFm ,15,15,IG0> 

IF (IG0*EQ*1.0R.IG0.EQ.11*0R.IG0.EQ.21> WRITE (8,8) TFFLPS,WLO 
IF ( IG0*EQ*2*0R.IG0*EQ.12.0R.IG0.EQ.22> WRITE (8»8> TFFLPS, WHI 
IF ( IGO.EQ.iO.OR* IG0.EQ.11.0R*IG0.EQ.12) WRITE (8,9) CNLPS,WLO 
IF < IGQ.EQ.20.0R. IGQ.EQ.21.0R.IG0.EQ.22) WRITE (8,9) CNLPS»WHI 
IF ( IG0.NE.7) GO TO 2 
CALL ERROR 
RETURN 

2 N0HAP*0 

TFLCAL*WG5*SQRT(T5)/(14.696*P5) 

IF(SI) TFLCAL*WG5*SQRT(T5>/P5 
XNLP*XNLPD$*PCNF/ 100. 

XNLDOT *DER IV(3,XNLP> 

DHACEL*CONFAC*PMI LP*XNLP*XNLDOT 
OHTCF* ( WAFP* ( H22“ H2I+DHACEL > / ( WG5*T5> 

I F( FXFN2H ) OHTCF* (WAFP* ( H22-H2 >*WAIP* ( H21-H22) +OHACEL) / ( WG5*T5 > 

I F ( FXFN2M# AND. AFT FAN > DHTCF* ( WAFP* (H22-H2I+W AI P* (H21-H2 I+DHACEL ) 

1 / ( WG5*T5 ) 

IF ( ISPOOL.GE.2) GO TO 11 
BTUEXT-O. 706706*HPEXT 
IFISII BTUEXT*HPE XT 

DHTCF* ( BTUEXT+WAFP*( H22-H2 l+OHACEL > /( WG5*T5) 

11 IF ( I0ES.EQ.0 > GO TO 5 

TFLPCF*TFLPDS/TFL CAL 
OHLPCF*DHTCF/OHTCLP 
ETLPCF=ETLPDS/ETA TLP 

WRITE (6,10) CNLPCF ,TFLPCF ,ETLPCF , DHLPCF 

5 TFLCAL*TFLPCF*TFL CAL 
DHTCLP*OHLPCF*DHT CLP 
ET ATLP*ETLPCF* ETATLP 
0HTF-DHTCF*T5 

11*3 

12*4 

IF ( I SPOOL *EQ. 1 ) 11*1 

IF ( ISPOOL.EQ. 1) 12*2 
ERRU1>*(TFLCAL-T FFLP)/TFLCAL 
ERRU 2>-( DHTCF-OHTCLP) /OHTCF 

CALL THTURB < OHTF , ETATLP , FAR5 ,H5 , S5, P5, T55 ,H 55 ,S 55 ,P55 ) 

IF(BLLP*LE.O.) GO TO 6 

FAR55 * FAR5*WG5/(WG5*BLLP*(1. ♦FAR5)) 

WG55-WG5+BLLP 

H55* ( BLLP*H3*WG5*H55) /WG55 

CALL THERMO(P55,H55,T55tS55,XX2,lf FAR55,1) 

GO TO 7 

6 FAR55-FAR5 
WG55-WG5 

7 CONTINUE 

IF ( VLPTRfi. EQ.O.O) GO TO 21 
0 ( 2 ) * 0«0 
Q ( 3)*0#0 
WG55P-WG55 
H55P*H55 

P55D0T*DERIV( 16,P55> 

18 CONTINUE 

CALL THERMO! P55,H55,T55,S55 ,XX2, 1 , FAR55, 0) 

WG55-WG55P-P55D0T*VLPTRB/T55/1.4/RA 

U55-H55-RA*AJ*T55 

U55D0T*DERIV!17,U55) 

H55X*( WG55P*H55P- ( WG55P-WG55) *U55-U55D0T*P55*VLPTRB/T55/RA > /WG55 
ERRW* ( H55-H55X ) /H 55 
DIR* SORT <AB$(H55/H55XI > 
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19 

20 
21 


C 

C 

8 

9 

10 


rn L ™ A ,?° IR<QI 1 T 55 » ERR « » 20., 0.0001, DIR f T55T, IGOI 

GOTO 119, 21,20), IGO 

T55-T55T 

GO TO 18 

CALL ERROR 

CONTINUE 

CALL FRTOSO 

RETURN 

jag jasss’B ^ sssaagaasssssss 

ENO 


146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 


fINIT fIDUHP f IAMTP , I GASHX 
i I 0 SHOC , I MS HOC , NOZF LT , I TR VS 


SIBFTC COMIX 

SUBROUTINE COMIX 
COMMON /WORDS/ WORO 
COMMON /DESIGN/ 

1IDES f JOE S » KDE S $ MODE 

21 DBURN, IAFTBN, I DCD ,IMCD , w 

3L00PER, NOMAP , NUM MAP, M APEDG, TOLALL »ERR(9) 

COMMON /ALL1/ 

i»^ 6U,PCNCGUfT4GU » DUMD2 »J)ELFG «DE LFN »DELSFC 

2ZFDS t PCNFDS#PRFDS » ETAFOSt WAFDS fPRFCF , ETAFCF , W AFCF 
3ZC0S tPCNCOSf PRCDS , ETACDS, WACOS »PRCCF , ET ACCF , W ACCF 
4T40S 9 WFBDS , DTCOOS f ETABDSf WA3CDS f DPCODS, OTCOCF .ETABCF 

5T FHP DS » CNHPDS t ETHPDS f TFHPCF tCNHPCF f ETHPCF » OHHPCF »T2DS 
6 TFLPDS t CNLPOSi ETL P0S,TFLPCF, CNLPCF tETLPCF, 0HLPCF,T21DS 
7T240S , MFODS , DTDUOS f ETAOOSt WA23DS, OPOUOS t OTOUCF » ETAOCF 
8T70S tWFADS 9 DTAFDS 9 ETA AOS. WG 6 CDS . DPAFn*. nT aftp -C ta *r c 
9A55 t A25 , A 6 

APS55 9 AM55 r CVt 
COMMON /ALL 2 / 


IT 1 
2T21 
3T4 
4T55 
5CNF 
6 CNC 
7CNMP 
8 CNLP 
9AM 


9 PI 

9P21 

?P4 

tP55 

tPRF 

9 PRC 


9 HI 

»H 2 l 
9 H4 
t H55 
9 ETA F 
tETAC 


9 ALT P f ETAR 


COMMON /ALL3/ 
1XP1 9 XWAF 
2XT21 ? XP21 

3T24 9 P24 

4T28 f P28 
5WAD »WFD 
6TS28 9 PS28 

7XT55 9 XP55 

8XWFB 

9T6 ,P6 

STS t P8 


9 A7 

9 A 8 

9A9 

t A28 ,A29 

9CVMN0Z,A8SAV 

9 A9SAV 

•A28SAV.A29SAV 

9 SI 

9T2 

9 P2 

» H 2 9 S2 

t S21 

fT 3 

9P3 

9 H3 9 S3 

9 $4 

9T5 

9P5 

9 H5 , S5 

9 S55 

9 BLF 

9 BLC 

9 BLDU 98 LOB 

9 WAFC 

tUAF 

9WA3 

t WG4 y FAR4 

• WACC 

>WAC 

• ETAB 

9 OPCOM 9 OUMP 

9 0HTC 

9 B LHP 

9 WG5 

9 FAR5 ,C$ 

90HTF 

9 BLLP 

9WG55 

9FAR55 9 HPEXT 

f ZF 

tPCNF 

rZC 

9 PCNC ,WFB 

9 PCBLC 

9 PC BLOU 

9 PCBLOB 

9 PC BL HP 9 PCBLL P 


9 XMAC 
9XH21 
,H24 
9 H28 
9 WG 2 4 
9 V28 
9XH55 


9 XBLF 
t XS 21 
tS24 
»S28 
9FAR24 , ETAD 
9 AM28 9 T S29 
9XS55 f XT25 


9 X B LOU 
tT23 
9 T25 
T29 


t XWG55 9 XFAR55 9 XWFD f XMG24 9XFAR24 9 XXP1 


COMMON /ALL4/ 


1WG6 

2PS6 

3TS8 

4VA 

5FGM 

6MA32 

7H38 

8V39 


9 UFA 
9 V 6 
9 PS 8 
9 FRD 
t FGP 


9 H 6 

9 H 8 

9 WG7 
9 AM 6 
9 V 8 
9 V JD 
r WFT 


iS6 
9 S 8 

9FAR7 

»TS7 

9 AM 8 

9 FGMD 

»WGT 


9 T7 
9 T 9 

t ETAA 
9 PS7 
9 T S9 
9 V JM 
r FART 


9XH3 9 OUMSI 9 DUMS2 
9P23 9H23 9 S23 

9P25 ,H25 f S25 

iP29 r H29 »S29 

9 OP DUC 9 BYPASS ,0UMS3 
9PS29 9 V29 f AM29 

XP25 9 XH25 , XS25 
9 DUMB 
»P7 9 H7 ,S7 

*P9 ,H9 ,S9 


9 DPAFT 9 V5 5 


9 V7 
f PS9 
9 FGMM 
9 FG 
9 AM38 
f H39 


9 AM7 
9 V9 
9 FGPO 
tFN 
9 V38 
t P39 


t V25 

9AM25 

9AM9 

9 FGPM 

9 S FC 

iT38 

9TS39 


9 CVOWNG 9 FGMWNG 9 FGPUNG 


9 OPWGDS 9 OPM ING 9 WA32DS 9 A38 
9P38 9 TS38 ,PS38 ,T 39 

9AM39 ,A39 ,BPRINT,WG37 

9FNWING 9 FNMAIN 9 FWOVFN 9 PS39 9 FFOVFN 9 FCOVFN 9 FHNOFN 9 F NOVFO 
SVJW ,T22 9 P22 ,H22 ,S22 ,T50 ,P50 f H50 

COMMON /ALLS/ 

1S50 rWA22 » Z I » PCN I f CNI 9 PR I .ETAI yUACl 

2TFFIP 9 CNIP 9 ETATIP 9 OHTC IP 9 DHTI f BLlP , PC BL I P r PCN I GU 


1 

2 
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4 
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16 
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3Z10S v PCN I OS t PRT OS’THTA IDS# WATOS » W ICF ,ET AICF,WAICF , 
4T F IPOS t CN I POS » ETI PDS fTFIPCF*CN IPCF iETIPCF»OM IPCF f WAI CDS* 
5WAI »PCBL I tBLl ,T22DS # WA2i f «G50 # FAR50 ,A24 t 
6AM23 ,OUMSPL»FXFN2M f FXM2CPt AFTFANtPUNT 
7AM6DSV.ETAASV,FAR7SV*T4PBL ,T41 , FAN 

C OMNON/WHRERR/ 1 CO AFB * i COOUC* I COM I X 


t PC BL ! Of P60SAV » 
1 1 SPOOL 


COMMON/UNITS/SI 
LOGICAL SI 

COMMON /LOOPPR/KKGOt PRFNEW t PRC NEW 
DATA AWORO/6H COMIX/ 


DIMENSION QQ(9> 
WORD* AWORD 
IF (SI > GO TO 100 


AJ*778.26 
CAPSF*2116*2170 
G* 32* 17049 
RDEH* 1 *986375 


GO TO 101 
100 AJ*1.0 

CAPSF* 1.0 


G*1.0 

RDEM»8 3 16*41 
101 CONTINUE 
ICOMI X*0 

CALL PROCOH ( FAR5 5,T 55 , XX 1 ,XX2 . XX3 , XX4 • PHI 55 ,XX5> 

CALL PROCOM ( FAR24.T25 *XX1 *XX2 ,XX3 , XX4, PHI 25 ,XX5> 

IF (IOES.EQ.O) GO TO 12 
C **♦ CALCULATE A55 AND A25 WITH PS25*PS55 
IF IPS55.EQ.0. ) GO TO 3 
T$55*T55* (PS55/P5 51**0.286 

CALL PROCOM ( FAR5 5»TS55» C S55* AK55 t CP55 » REX55,PHI S55»HS55> 
PH I S*PHI 55-REX5 5* ALOG( P55/PS55) 

DEL PH I * PH I S— PHI S5 5 

IF ( A BS ( DELPHI ) «L£. 0.0001*PHI S ) GO TO 6 

1 TS55*TS55*EXP(4.0*0ELPHI ) 

ICOM I X*1 

2 CALL ERROR 
RETURN 

3 TS55*0.875*T55 

CALL PROCOM (FAR55,TS55,C$55, AK55 ,CP55 t REX55 tPHI S55,HS55I 

V55»AM55*CS55 

H$CAL*H55~V55**2/ (2.*G*A J > 

D£LHS*H$CAL-H$55 

IF (ABS(OELHS) .LE .0. 0005*HSCAL ) GO TO 5 
h T S55*TS55-*DELHS 1Z P55 

ICOMI X*2 
GO TO 2 

5 PS55-P55/EXPI I PHI 55-PHIS55I/REX55I 

IF (P S55.GT.P25.AND. IDES.EQ. 1. AND. IGASMX.GT.O) GO TO 45 
t IF (H55.GT.HS55) GO TO 7 

WRITE ( 8«46> P55 t PS55, T55» TS5 5 *H55 f HS55 

ICOMIX-3 

CALL ERROR 

7 V55-$QRT(2.*G*AJ*tH5 5-H$55n 

RHO-CAPSF*PS55/(AJ*REX55*TS55> 

A55-WG55/(RHO*V55> 

AM55* V55/CS55 
IF UGASMX.GT.O) GO TO 8 
WRITE <6# 47 1 A55t AM55 
IF IIGASMX .EQ. 0) GO TO 41 
IF (IGASMX .EQ. -1) GO TO 35 

6 P$25*PS55 

T S25*T25* ( PS25/ P2 51**0.286 


CALL PROCOM ( FAR24* TS25> CS25» AK25, CP25 » REX25 t PHlS25»HS25> 
PHI $*PHI 25-REX2 5* ALOGI P25/PS25) 

DELPHl*PH I S— PHI S2 5 

IF IABSIDELPHI I.LE.0.0001*PHIS) GO TO 10 
9 T S25*TS25*EXP ( 4.0*DELPHl I 

ICOMI X*4 
GO TO 2 
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10 


IF ( H25*GT *HS2 5 > GO TO U 
WRITE (8,48) P25, PS25, T25, TS2 5 ,H25 , HS25 
ICON I X*5 
CALL ERROR 

11 V25*SQRT( 2**G*AJ*IH25-HS25)I 
RH0-CAPSF*P$25/(AJ*REX25*TS25) 

A25*WG24/(RH0*V25> 

AN25-V25/CS25 

WRITE (6,49) A 5 5, AM55, A2S, AH 2 5 
GO TO 27 

C *** CALCULATE PS55 AND PS25 

12 WQA*WG55/A55 

C1»P55*SQRT ( G / ( T5 5*A J) )*CAPSF 

MCON*0 

QQ ( 2) *0* 

00 ( 31 * 0 * 

A H 5 5* 0 • 50 
TS55*0*875*T55 

13 DO 14 1*1, 15 

CALL PROCOM ( F AR55, T S55, C S55, AK55,CP55 ,REX55 , PHI S55, HS55) 


14 


15 


16 


17 


18 


19 


20 


21 

22 


23 


24 


HSCAL*H55-V 55**2/ (2* *G*A J ) 

DELHS-HSCAL-HS55 

IF ( ABS(DELHS) «LE«0»0005*HSCAL ) GO TO 15 
T S55*TS55+DELHS/C P55 
ICOMI X*6 
GO TO 2 

WQAT-C1*SQRT(AK55 /REX 5 5) *AM55/ (!•+ ( AK55-1* )*AM55**2/2« 
1)/(2.*(AK55-1.))) 

AMX*AH55 
IGOGO*0 
DIR*WQA/WQAT 
EW*( WQA-WQAT)/WQA 

CALL AFQUIR ( QQ( 1 ) , AMX ,EW , 0. , 30* , 0*0005 ,DI R , AMXT , I CON) 
IC0MIX*7 

GO TO (17, 22,2 ) , I CON 
IF ( AMXT*LE*1*0) GO TO 20 
AMXT-0.7 
HCON*MCON+i 

IF ( MCON* LE • 1 ) GO TO 20 
IF ( MODE. EQ.3 ) GO TO 19 
PCNF*DUMD1 

WRITE (8,50) PCNF,AMX,P55,PS55,P25,PS25 

PCNF* 1*01*PCNF 

0UMD1*PCNF 

N0MAP*7 

ICOMIX-O 

RETURN 

WRITE (8,51) ZF,APX, P55,PS55,P25,PS25 

ZF*0.99*ZF 

GO TO 18 

IF ( IGOGO»EQ« 1 ) GO TO 21 

AM55-AMXT 

GO TO 13 

AM25-AHXT 

GO TO 23 

IF ( 1GOGO* EQ* 1 ) GO TO 26 
PS55*P55/EXP((PHI 55-PH I$55)/REX55) 

IF ( I GAS NX .EQ* 0) GO TO 41 
IF ( IGASMX *EQ* -1) GO TO 35 
WQA*WG24/A25 

C1«P25*S0RT(G/(T25*AJ) )*CAPSF 

MCON*0 

QQ( 2) *0* 

QQ( 31*0* 

AH25*0.25 
TS25»0*875*T25 
DO 24 1*1,15 


)**( (AK55+1. 


* FA R24,TS25,CS25, AK25,CP25,REX25 ,PHI S25,HS25) 

V c 3*A He 525 


HSCAL»H25-V25**2/ ( 2**G*AJ ) 
DELHS-HSCAL-HS25 

IF (ABS(0ELHS).LE*0*0005*HSCAL) GO TO 25 
TS25-TS25+DELHS/CP25 
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25 


26 

27 


ICOM I X*8 

«QAT*C1*SQRT( AK25/REX25»*AH25/ AK25-1* •♦AM 25** 2/ 2* >**( ( AK25+1* 


X)/(2.*1AK25-1.)>> 

AMX*AM25 
I GOGO* 1 
GO TO 16 

PS25*P25/EXP( (PHI 25- PH I S25 > /REX25 ) 


WG6*HG24+UG55 

ERRI 5 I »( PS25-PS55 )/PS25 

WF55 * FAR55*WG55/(FAR55+1*> 

MA55 - WG55/(FAR55*1.> 

WF24 * FAR24*WG24/(FAR24*1.> 

WA24 - WG24/<FAR24+1.) 

FAR6 * (WF55+WF24 )/( WA55+WA24) 

H6 S ( W G24*H25+WG55*H55> /WG6 

CALL THERMO 1 1* »H6«T6» PHI6 , AMX , 1,F AR6, 1 1 » 

C1=PS55*A55*( !• +AK55* AM55**2 )*PS25*A25*( 1* ♦AK25*AM25**2) 


TS6*0.833*T6 
DO 32 I*l»15 

CALL PROCOM <F AR6 ,TS6 f C$6, AK6 f CP6, REX6#PHI S6»HS6) 
C2=*WG6*$QRT( AJ*RE X6*T6/( AK6*G ) ) 

C3*C2/(CAPSF*C1> 

C4*C AK6- 1* > /2«— (C 3*AK6I**2 
C5*l«- 2«*AK6*C3** 2 
C6 as C5**2 + 4«*C4*C3**2 


ICOM 1X^*9 

IF ( C6 ) 28 f 29i 30 

28 CALL ERROR 
RETURN 

29 AM62G*-C5/(2.*C4> 

GO TO 31 

30 AM62G* ( SORT (C6 >-C 5> / ( 2.*C4) 

31 IF (AM62G.LE.0.> GO TO 28 

AH6G-SQRTI AM62G) 

V6«AH6G*CS6 

HSCAL-H6-V6 **2/ ( 2 .*G*A J I 
DELHS-HSCAL-HS6 

IF (A8S(DELHS)*LE«0* 0005*H$CAL > GO TO 33 

32 T$6*T$6+DELHS/CP6 
IC0MIX-10 

CALL ERROR 
33 A6G-A25+A55 

C7*SQRT ( 1.MAK6-1. )*AM62G/2* > 
P$6-C2/(CAPSF*A6G*AM6G*C7> 

P6-PS6*EXP( (PHI6-PHIS6I/REX6I 

CALL THERMO I P6»H6»T6 t S6 » XXI » 1 » FAR6 f 0) 

S6AVE*( WG24*S25+WG55*S55) /WG6 

IF (S6.GE.S6AVEI GO TO 35 
S6**S6A VE 

P6*EXP ( AMX*( PHI6-S6) /RDEM ) 

35 IF ( IGASMX.EQ.l) GO TO 43 

IF UGASMX •EQ« GO TO 36 

IF UGASMX .EQ. 2 > GO TO 37 

36 T 6 » T55 

P6 *P55 
H6 -H55 
S6 * S55 
MG6 *WG55 
PS6 -PS55 
FAR6-FAR55 
AK6 -AK55 

37 IF (IDES • EQ« 0) GO TO 38 

C*** CALCULATES A6 AS A FUNCTION OF INPUT AM6 
TS6-T6/(1.0*(( ( AK6-L.0!/2.0>*AM6**2)> 

DO 34 JJ* 1 1 15 

AK6P* AK6 , 

CALL PROCOM (FAR6 ,TS6,CS6, AK6, CP6.REX6,PHI S6,HS6> 

V6*AM6*CS6 

DELAK6-AK6P-AK6 

IF ( ABS( DELAK6 ) • LE« 0*0005*AK6> GO TO 54 
34 TS6*T6/(1.0+(( ( AK 6-1 .01 /2* 01 *AM6**2) • 

ICOMI X*U 
CALL ERROR 
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54 PS6-P6/U 1.0 ♦ ( C (AK6~i.0>72-0) *AM6**2) >**(AK6/( AK6-1.0) > » 
AM6ABD-AM6 

RH0«CAPSF*PS6/( AJ*REX6*TS6> 

A6«WG6/(RH0*V6> 

WRITE (6,52) A6 
GO TO 44 

C CALCULATES M6*F ( A6DE S I GN > 

38 TS6P*T6/( l*0+( ( (AK6-1.0) /2.0) *AH6ABD**2> ) 

DO 39 1*1,15 

CALL PROCOM ( FAR6 ,TS6P ,C S6,AK6«CP6,REX6,PH I S6, HS6) 

PS6P«PS6*(TS6P/TS6>**( AK6/IAK6-1.0 >> 

RH06*CAPSF*PS6P/( AJ+REX6*T$6P ) 

V 6* SORT ( 2* *G*A J*( H6-HS6) ) 

IF ( 4 H6— HS6 ) *L T*0 *0) GO TO 42 
A6P*WG6/(RH06*V6) 

0ELA6*A6P-A6 

V6-WG6/(RH06*A6) 

AM6*V6/CS6 

AH62»AM6**2 

IF ( A8S ( DELA6) • LE *00 *002* A 6) GO TO 40 

39 T S6P*T 6/( L *0+{ ( ( AK6-1.0) /2*0> * AM62) I 
ICOMIX-12 

CALL ERROR 

40 TS6-TS6P 
PS6*P S6P 
GO TO 44 

41 T 6*T55 
P6-P55 
H6-H55 
S6*S55 
WG6-WG55 
PS6*PS 55 
V6*V55 
AM6*AM55 

IF ( IGASMX.EQ.O) A6-A55 
GO TO 44 

42 WRITE (6,53) H6,HS6 
ICOMI X*13 

CALL ERROR 

43 AM62-AM62G 
AM6-AM6G 
A6*A25+A55 
ICOMIX*0 

44 CALL COAFBN 
RETURN 

45 KKGO* 1 
QPRDS*PRFDS*PRCD$ 

PRFNEW»PRFDS*PS55/P25*1*02 
PRCNEW*OPR OS/PR FN EW 
IC0MIX*0 

CALL ENGBAL 
RETURN 
C 

c 

46 FORMAT ( 22H0SQRT OF H55-HS55 NEG , 6E15.6 ,6H$ $$$$») 

47 FORMAT ( 20H0TURBI NE AREA 0ESIGN,6X6H A55»,E15.8,8H AM55*,E15.8) 

48 FORMAT (22H0SQRT OF H25-HS25 NEG ,6E15.6,6H$ $$ $$$) 

49 FORMAT ( 25H0TURBI NE/OUCT AREA DESIGN, 7H A55- ,E15«8,8H AM55*,E1 

15.8,8H A25-,E15.8,8H AM25*,E15«8) 

50 FORMAT (12H0C0MIX PCNF*, F7*4, 4H AM«,F8*6,5H P55*,F9.5,6H PS55*,F9* 
15, 5H P25-,F9.5,6H PS25*, F9#5, 6H$$$ *$$) 

FORMAT (10H0C0MIX ZF*,F8.5»4H AM*,F8«6,5H P55*,F9.5,6H PS55-,F9.5, 
15H P2 5*,F9 • 5, 6H P S25*, F9* 5,6H $$$$$ $) 

FORMAT ( 3X , 27HAFT ERBURNER DESIGN AREA A6 F8.3) 

FORMAT (3X,18HNEG.HS6 FACTOR H6 F9.4,3X ,4HHS6 F9#4) 

END 
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$IBFTC CQMNQZ 

SUBROUTINE COMNOZ 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

IIDES • JOES tKDES iMOOE yINIT y IDUMP y IAMT P » I GASMX 
21 DBURNy lAFTBNy IDCD ylMCD , IOSHOC, IMSHOC,NOZFLT,ITRYS 
3L00PER, NOMAP f NUMMAPy MAPEDGy TOLALL »ERR (9) 

COMMON /ALL 1/ 

IPCNFGUy PCNCGUy T4GU yDUMDl f DUMD2 y DELFG yDELFN yDELSFC 
2ZFOS yPCNFDSy PRFDS » ETAFDSy WAFDS yPRFCF , ET AFCF #W AFCF 
3ZCDS yPCNCOSyPRCDS yETACDS, WACDS ,PRCCF y ET ACCF ,WACCF 
4T4DS yWFBDS y DTCODSy ETABDS, WA3CDS y DPCODSy DTCOCF y ETABCF 
5TFHPDS y CNHPDS » ETHPDS yT FHPCFyCNHPCF y ETHPCF f DHHPCF y T2DS 
6TFLPDS y CNLPDSy ETL POS yTFLPCF yCNLPCF f ETLPCF y DHLPCF ,T21DS 
7T24DS yWFDDS , DTDUOSy ETADOS , W A23DS f DPDUDSyOTDUCFyETADCF 
8T7DS y WF ADS .OTAFDSy ETA ADS ,WG6CDS f DPAFDS,OT AFCF, ETAACF 
9A55 ,A25 yA6 f A7 yA8 f A9 yA28 yA29 

$PS55 y AH55 yCVONOZyCVMNOZyASSAV t A9SAV y A28SAVyA29SAV 


IT 1 

tPl 

y HI 

t SI 

t T 2 

2T21 

» P2 1 

y H 2 1 

yS21 

yT3 

3T4 

yP4 

y H4 

,S4 

»T5 

4T55 

,P55 

y H55 

, S55 

y BLF 

5CNF 

,PRF 

y ETA F 

yWAFC 

,WAF 

6CNC 

y PRC 

, ETAC 

y W ACC 

y W AC 

7CNHP 

yETATHP 

y DHTCHP 

yDHTC 

yBLHP 

8CNLP 

t ETATLP 

y DHTCLP 

,DHTF 

yBLLP 

9AM 

, ALTP 

,ETAR 

yZF 

y PCNF 

8TFFHP 

y TFFLP 

.PCBLF 

yPCBLC 

, PCBLDU 

COMMON 

/ALL3/ 




1XP1 

yXWAF 

y XWAC 

,XBLF 

yXBLOU 

2XT21 

yXP21 

y XH2 1 

y XS21 

y T23 

3T24 

yP24 

yH24 

yS24 

• T25 

4T28 

yP28 

,H28 

yS26 

y T29 

5WAD 

yWFD 

, WG24 

t F AR24 

yETAD 

6TS28 

v PS28 

y V28 

,AM28 

, T S29 

7XT55 

yXP55 

, XH5 5 

y X S55 

f XT 25 

8XWFB 

, XWG55 

, XFAR55 

► ,XWFD 

, X WG24 

9T6 

,P6 

y H6 

t S6 

y T7 

$T8 

yP8 

y H8 

y SB 

y T 9 

COMMON MLL4/ 



1NG6 

,WFA 

y WG7 

f FAR7 

,ETAA 

2PS6 

yV6 

y AM6 

,TS7 

y P S 7 

3TS8 

yPS8 

yV8 

y AM8 

,TS9 

4VA 

,FRD 

, VJD 

, FGMD 

,VJM 

5FGM 

, FGP 

,WFT 

yWGT 

f F ART 


yP2 
yP3 
tP5 
y BLC 
yWA3 
• ETAB 
,WG5 
y WG55 
yZC 


yH2 
f H3 


»H5 

yBLDU 


yS2 
t S3 
y S 5 
y BLOB 
. WG4 # F AR4 
yDPCOM y DUMP 
y FAR5 yCS 
y FAR5 5 yHPEXT 
yPCNC yWFB 


yOPWGOSy DPW ING , WA32DS, A3 8 
y P 38 , TS3 8 y P S38 yT39 

y AM39 ,A39 


,XH3 
f P23 
yP25 
f P29 
yDPDUC 
, PS29 
y XP25 
,XFAR24y XX PI 
y P7 y H7 
f P9 yH9 

yUPAFT yV55 
yV7 yAMT 
y PS9 yV9 
, FGMM yFGPD 
y FG y FN 
y AM38 yV38 
,H3< y P39 


, DU MSI y DUMS2 
y H23 y S23 
9 H25 yS25 
, H29 f S29 
y BY PASS#DUMS3 
f V29 , AM29 
* XH 25 y XS2 5 


v DUMB 
y S 7 
yS9 

yV25 
t AK25 
y AM9 
yFGPM 
ySFC 
f T38 
yTS39 


yCVDWNG yFGMWNGyFGPWNG 


H22 • S22 

,T50 

t P50 *H50 

PCNI tCNI 

• PRI 

t ET AI .MACI 


6WA32 
7H38 

8V39 y AH39 y A39 ,BPRlNTyWG37 

9FNW!NG«FNMAINy FWOVFN » PS39 f FFOVFN » FCOVFNy FHNOFNyFNOVFDi 
$VJW yT22 yP22 

COMMON /ALL5/ 

2TFFIP yCNI P y ETATI PyDHTC I P y DHTI .BLIP y PC BL IP y PCNI GUy 
3ZI0S f PCNIDS# PRI OS , ETA IDS, WA IDS yPRlCF ,ET AICF yWAICF , 

4TF IPOSyCNIPDSy ETI PDSyTFIPCFyCNlPCFyET IPCFy DH IPCFyWAlCDSy 
5WAI yPCBLI y BLI ,T22DS ,WA2l yWGSO »*** ’ 

6AM23 , DUMSPLy FXFN2MyFXM2CPyAFTFAN, PUNT , PCBL I0yP60SAVy 

7AM6DSV, ETAASV, FAR7SV, T4PBL »T41 tFAN ytSPGQL 
COMMON /DYN/ ITRARyT IMEy DT,TF , JTRAN yNSTEPyTPRI NTyDTPRNT 
DATA AW0RD/6HMN0ZZL/ 

WORD* A WORD 

A8SAV-A8 

A9SAV*A9 

NOZM-O 

IMN0Z*0 

IF (ITRAN *EQ. 1) CALL NOZCTR 
IF <NOZFLT.EQ*l.OR*NOZFLT*EQ*3> NOZM-1 
IF I IDES*EO*l*OR* I AFTBN»GT*0* OR*NOZM*EQ* 1 ) IMNOZ*l 
I F < ITRAN.EQ.U IMNOZ*0 

IF (IMCD.EQ.l) GO TO l co 

CALL CONVRG IT7 ,H7y P7, S7 t FAR7 y WG7 y PI y I MNOZ y A8t P7R. T8 y H8y P8 y S8y TS8y 

lPS8yV8, AMS, ICON) 

GO TO I3.3,3i2)y ICON 
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1 CALL CONDI V < T 7 , H 7*? 7t S? , F AR 7 , NG7 , P 1 , TMN0Z , A 8 , A9”, P 78', T 8 ,~H8 » PB ,' 5 BYT* 
19,H9,P9,S9*TS8.TS9, PS8,PS9,V8, V9, AM8 ,AM9 , ICON) 

I MSHOC- ICON 

GO TO ( 4,4,4, 2) , ICON 

2 CALL ERROR 

3 T9-T8 
H9-H8 
P9-P8 
S9-S8 
TS9-TS8 
PS9-PS8 
V9-V8 
AM9-AN8 
A9-A8 

IMSHOC-ICON+3 

4 ERR( 6 ) *1 P7R-PH/P7R 

IF< ISPOOL.EQ.D ERR ( 3) -ERR( 61 
IF (IMNOZ.EQ.l) WRITE (6,5» A 8 , AH8 ,A9, AM9 
RETURN 
C 
C 

5 FORMAT ( 14HONOZZL E DESIGN, 10X8H A8*,E15.8,8H AM8-,E 15. 8 , 8H 

l A9-,E15*8,8H AM9*,E15.8> 

END 
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$IRFTC CONDIV 

SUBROUTINE CONDIV (Tl ,HI ,PI , St ,FAR , WG» PA , I DE S, AT ,A0, PI R,TT , HT, PT , S 
IT , TO, HO, PO , SO, TST ,TSO» PST ,PSO , VT , VO, AMT ,AMO, ICON I 
C ICON-1 SUBSONIC, COMPARE PIR WITH PI 

C ICON-2 SONIC, SHOCK INSIDE NOZZLE, COMPARE PIR WITH PI 

C ICON-3 SONIC, SHOCK OUTSIDE NOZZLE, COMPARE PIR WITH PI 

C ICON-4 ERROR 

COMMON/UNI TS/Z I 
LOGICAL ZI 
DIMENSION Q( 9 ) 

Q ( 21-0. 

Q(3>»0. 

IF (ZI ) GO TO 100 
AJ-778.26 
CAP SF- 2 116. 2 170 
G-32. 174049 
GO TO 101 

100 AJ-1.0 
CAPSF- 101325.0 
G- 1*0 

101 CONTINUE 

CALL PROCOM (FAR, TI , XXI# XX2 *X X3 ,XX4,PHI I ,XX6 > 

C SONIC CALCULATIONS 

J-0 

TSS-O. 833*T I 

1 J-J+l 

CALL PROCOM (FAR, TSS,CSS , AK,CP ,REXS, PH I SS, HSS) 

HSCAL-HI— CSS4*2/I 2.*G*A J > 

DELHS-HSCAL-HSS 

IF UBS(DELHS)-0.0005*HSCAL> 4,4,2 

2 TSS-TSS+OELHS/CP 

IF U-15) 1,1,3 

3 I CON- 4 
RETURN 

4 IF (IDES) 11,11,5 

C *** SONIC DESIGN. CALCULATE AT 

5 VT-CSS 
TST-TSS 

PST-PI*(TST/TI )*^(AK/(AK-1.)I 
RHO«CAPSF*PST/( AJ*REXS*TST) ' 

AT-WG/(RHO*VT) 

AMT-1.0 

C *** IDEAL EXPANSION OESIGN, CALCULATE AO 
PSO-PA 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 


60 



J = 0 

T$0*T I*( PSO/PI >**.286 

6 CALL l pRQCOH (FAR, TSO,CSO, AK,CP,REX,PHI SOfHSOI 
PHICAL-PHI I -RE X*A LOG (PI /P SO> 
delphi*phical-phiso 

IF ( ABS(OELPHI >-0.0001*PH ICAL > 8»B,7 

7 tso=t$o*exp<4.*delphi > 

IF *J-15> 6? 6* 3 

8 VO=SORT( 2.*G*A J*t HI-HSO) ) 

ii. n > 

P IR* P I 
I CON= 3 

9 TO=T I 
HO=H I 
PO*PI 
SO*$I 

10 TT=T I 
HT = HI 
PT*P I 
ST*SI 

C *** ASSUME SONIC THROAT AND ISENTRCPIC EXPANSION TO AO 


11 


12 

13 


VT=C SS 
AMT*1.0 
TST*T SS 
RHO*WG/( AT*VT> 

P$T = RHO*AJ*REXS*T ST /CAPSF 
PIR = PST*( TI/TST >**<AK/(AK-1. > > 

IF (PST-PA) 12 i 27 ,27 
T S0=0. 95*T I 
y a y = o 

CALL PROCOM { F AR, TSQ , C $0 , AK, CP *REX , PH l $0 ,HSO > 

1AK-1. » > » 

EA=(AO-AOCAL»/AO 

^L^AFQi^^nllSO.EA.O., 100., 0.0001. DIR.TSOT, JCON) 
GO TO (14,18,3), JCON 
T SO-T SOT 

IF ( T SO-T l ) 15 1 13 1 16 
T SC=2 • *T I / ( AK+ 1 • > 

IF (TSO.GT.TSO GO TO 17 
T$0*0.98*T I 

*IF (Q12I.LT. 30.0. OR. AH0.LT.0.95.OR. MAM. EQ.D GO TO 13 
TS0*2.*TI/ (2. *0.9 8*1 AK-l.l > 

MAM-1 
GO TO 13 

P $0=P I R*( TSO/T I >**(AK/(AK-1. > > 

IF ( PSO-P A > 20,19,27 
C *♦* CRITICAL FLOW, ISENTROPIC EXPANSION TO PA 

19 VO*AMO*CSO 
IC ON* 1 

GO TO 9 

C *** SUBSONIC FLOW 

20 PSO*PA 

Q ( 2) *0. 

Q( 3) *0. 

J*0 

TSD=0 . 833*T I 

CALL PROCOM ( F AR, TSO ,C$0 , AK »C P , REX , PH I SO,HSO > 
RHO=CAPSF*PSO/ { AJ*REX*TSO > 

VO=WG/ ( RHO*AO> 

HSCAL*HI-V0**2/ t2.*G*AJ> 

DELHS=HSCAL-HSO 

IF ( ABSIOELHS >-0. 0005*HSCAL ) 23,23,22 
22 TSO*T SO+DELHS/ CP 
IF IJ-15) 21,21,3 
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23 AMO*VO/CSO 
PIR«PS0*(TI/TS0>**(AK/(AK-1.) > 

TST-TSO 

24 CALL PROCOM (FAR, T$T,CST,AK ,CP ,REX ,PHI ST,HST I 
PST*P IR*( TST/TI >♦*( AK/ ( AK— 1* ) ) 

RHO«PST*CAPSF/(AJ*REX*TST> 

VT-W6/IRH0*AT> 

HSCAL»HI-VT**2/ (2«*G*A J) 

EH*( HSCAL— HST) /HSCAL 
D I R*1 • HSCAL- HST l/( CP*TST > 

CALL AFQUIR ( Q< 1) ,TST, EH , O. , 20* , 0. 0005,0 IR ,TSTT t JCONI 
GO TO (25, 26,3) , JCON 

25 TST*TSTT 
GO TO 24 

26 AMT-VT/CST 
ICON-1 

GO TO 9 

C *** SUPERCRITICAL FLOW, ISENTROPIC EXPANSION TO PA 

27 PSO-PA 
J*0 

TSO*T I* CPSO/PI R )**«286 

28 J-J + l 

CALL PROCOH (FAR, TSO,C SO, AK, C P , REX ,PHI SO,HSO > 

PHI CAL*PHl I-REX*ALOG ( PIR/PS01 
DELPHI*PH ICAL-PHI SO 

IF (ABS( DELPHI )— 0*0001 *PH I CAL ) 30,30,2° 

29 T$0*T SO*EXP (4*Q*DELPHI > 

IF <J-15> 28,28,3 

30 VO*SQRT (2**G*A J*< HI-HSOU 
ANO-VO/CSO 

1K°1 D *I j T/AM 0> * ( 2 «* ( l« + <AK-l.l*ANO^*2/2.) / (AK+l*> >*•( ( AK+1* ) /( 2.*( A 

I CON* 3 
N*0 

IF ( AO— AO ID) 31,9,32 

C *** SUPERCRITICAL FLOW, ISENTROPIC EXPANSION TO AO 

31 N* 1 

32 TSO*0#833*TI 
J*0 

33 J*J+1 

CALL PROCOM ( FAR, TSO,CSO, AK, CP , REX , PH I S0,HS0 1 
AHO*SQRT ( 2**( ( TI/TSO )-!•)/( A K-l. > > 

AOCAL* ( AT /AMO ) * (2 •* ( 1* ♦( AK-1 • >*AH0**2/2« >/(AK+ 1* ) ) ♦* ( ( AK+1 • ) / < 2. *1 
1AK-1*>» 

DELA*AO-AOCAL 

IF (ABS(DELA>-0*0001*A0) 35,35,34 

34 TSO*T SO*SQRT ( AOCA L/AO > 

IF ( J— 501 33,33,3 

35 IF (N> 37,37,36 

C *** UNOEREXPANDED, SHOCK OUTSIDE NOZZLE 

36 PSQ*P IR*( TSO/T l )*♦( AK/ ( AK- 1* ) ) 

VO-AMO*CSO 

GO TO 9 

C •** OVEREXPANDED, FIND SHOCK POSITION 

37 PSX*P IR*( TSO/T I >**( AK/ < AK-1. J I 

PSY-PSX*<2.*AK*AM0**2/(AK*1.>-1AK-1*>/UK+1.>I 
IF (PA-PSY) 38,39,39 

C *** OVEREXPANDED, SHOCK OUTSIDE NOZZLE 

38 PSO*PSX 
VO*AMO*CSO 
GO TO 9 

C **♦ OVERE XPANDED, SHOCK INSIDE NOZZLE 

39 P$0*PA 
J *0 

TSO-0.833*TI 

40 J-J+i 

CALL PROCOM ( FAR, TSO,C SO, AK.CP *REX • PHI SO ,HSO > 

RHO«CAPSF*PSO/( AJ *REX*TSO> 

VO-WG/ (RHO*AO) 

HSCAL*HI-V0**2/(2**G*AJI 

DELHS-HSCAL-HSO 

IF (ABStDELHS)-0.0005*HSCAL> 42,42,41 

41 TSO-TSO+DELHS/CP 
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42 


IF (J-15) 40,40,3 

AM0*V0/CS0 

TO-TI 

HO»Hl 

PO m PSQ*( TQ/TSO (AK/( AK-1.) I 
SO-PHI I-REX*ALOG( P0> 

I C0N*2 
GO TO 10 
END 
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IIBFTC CONOUT 

SUBROUTINE CONOUT ( ICON) 

COMMON /WORDS/ WORD 

COMMON /DESIGN/ _ _ _ ___ _ 

1IDES ,JOES , KDE S ,MODE ,INIT ,IDUMP ,IAMTP 
2IDBURN, IAFTBN, IDCD , IMCD , I D SHOC , IMSHOC » NOZFLT , ITRYS , 
3LOOPER , NOMAP , NUMMAPyMAPEDGy TOLALL ,ERR(9> 
r nuunu /II I 1 / 


.HI 

,P21 »H21 . S21 

,P4 ,H4 .S4 

,P55 . H55 » S55 

,PRF . ETAF ,WAFC 

( PRC (ETAC .WACC 

,ETATHP,DHTCHP,OHTC 
t ET ATLP. OHTCLP »OHTF 
t ALTP ,ETAR ,ZF 


, rAK!> 

, FAR55 , H PE XT 


1XP1 yXWAF , 
2XT21 ,XP21 t 

3T 24 ,P24 , 

4T 28 »P28 , 

5WAD tWFD t 
6TS28 ,PS28 , 

7XT55 , XP55 t 

8XWFB y XWG55 , 
9T6 ,P6 , 

$T 8 ,P8 • 

COMMON /ALL4/ 
1WG6 
2PS6 
3TS8 
4VA 
5FGM 
6WA32 
7H38 
8V39 


, WFA 
,V6 
,PS8 
,FRD 
t FGP 


XWAC 

,XBLF 

, XBLDU 

, XH3 

, DUMS1 

, DUMS2 


XH2 1 

, XS21 

,T23 

, P23 

y H23 

t S23 


H24 

, S24 

, T25 

,P25 

v H25 

yS25 


M28 

,S28 

,T29 

,P29 

, H29 

yS29 


WG24 

,F AR24 

y ETAO 

yDPOUC 

, BYPASS 

,DUMS3 


V28 

, AM28 

,T S29 

,PS29 

yV29 

, AM29 


XH55 

,XS55 

,XT25 

, XP25 

, XH25 

, XS25 


XFAR55 

yXWFD 

, XWG24 

,XFAR24,XXPl 

yOUMB 


i H6 

y S6 

,T7 

,P7 

,H7 

, S7 


> H8 

isa 

, T9 

,P9 

,H9 

,S9 



t WG7 
, AM6 
,V8 
, V JO 
WFT 


,FAR7 

,TS7 

,AM8 

,FGMD 

,WGT 


tETAA 

yPS7 

,TS9 

t VJM 

FART 


y FGP y WFT , WGT * “ An 

on a 3 £. y DPWGOS y DPW ING t WA32DS# A38 

7H38 .P38 , TS38 ,PS38 yT39 »H39 f P39 # TS39 , 

ay 39 t AM39 , A39 ,BPRINT,WG37 yCVDWNG, FGMWNG, FGPWNGy 
9 FNW INGy FNMA IN, FWO VFN , PS39 , FFOVFN y FCOVFNyFMNOFNyFNOVFD, 
$VJW ,T22 , P22 ,H22 , S22 ,T50 »P50 yH50 

COMMON /ALL5/ ^ C - Af uAri 

.n .pr.Mi .CNI «PRI ,ETAI yWACI , 


yDPAFT 
,V7 
,PS9 
,FGMM 
,PG 
, AM38 
»H39 


tV55 
, AM7 
,V9 
y FGPO 
t FN 
, V38 
P39 


, V25 
, AM25 
, AM9 
,FGPM 
,SFC 
,T38 
t TS39 


1S50 , WA22 

2TFFIP ,CNI P 
32 IDS 
4TFIPDS 
SWA I 
6 AM 23 
7AM6DSV 
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c 


«!is« n uSc"x:s:;j;?s;!:'‘ 2 ' ,,iout ' i5,, '- wu ''‘ , '“ out '‘’ 

DATA ( WORDY! I > » I* 1,98)/ 

6HPCNC 60 * 681460 .6HDUMD1 .6HDUMD2 .6H0ELFG . 6HDELFN 
aMETAFep'tiS!??. ’^^NFDS,6HPAF0S .6HETAF0S .6HWAFDS . 6HPRFCF 
ZC0S ^HPCNCDS,6HPRCDS .6HETAC0S.6HWACDS 
.MCTMC^ftHMCC' . 6HT4DS >6HHF 80S .6HDTC OD S , 6HET ABDS 
S6HUA3CDS r 6HDPC0DS «6H0TC0CF . 6HETABC F » 6HTFHP0S .6HCNH POS . 6HETHP0S 
66HTFHPCF.6HCNHPCF .6HETHPCF . 6HDHHPCF . 6HT20S 6 WFLPDS, 6HCMLPDS 
«u^n2 S,6HTFLPCF ' 6HCNL P C F'6 H E T LP c F:6HDHLPCF;6HT21DS jSKSB 
, ® HOTOUOS » 6HETA °t>S»6HMA23DS,6HDPOUOSt6HDTOUCF,6HETAOCF 
^uII?»/-c’ 6HWF * 0S * 6H0TAFDS » A HETAA0S,6HWG6CDS 1 6 HDPAFDS » 6H0T AFCF 
«^It ACF,6H * 55 » 6HA25 »*HA6 i6HA7 (6HA8 ,6HA9 

SES** JSSSsa.JJSSSavJS}!** ' 6HC ^'^VHN0Zf6HA8SAV 

S6HT2 v 6HP2 ,6HH2 ,6HS2 

S6HS21 , 6HT3 ,6HP3 »6HH3 

DATA (W0RDYU),I-99, 189)/ 

,6HP5 
•6HBLF 
,6HWAFC 
,6H ETAC 


,6HP1 
,6HT2l 
, 6HS3 


»6HH1 

,6HP21 

,6HT4 


,6H$1 
, 6HH2 1 
1 6HP4 


, 6HS4 
, 6HH55 
, 6HPRF 
, 6HCNC 
, 6HDUMP 
, 6HFAR 5 
, 6HWG5 5 
, 6HPCNF 


,6HT5 
,6HS55 
, 6HETAF 
,6HPRC 
t 6HCNHP 
r 6HCS 

, 6HFAR55 ,6HHPEXT ^6HAM 


,6HH5 
, 6HBLC 
, 6HWAF 
, 6HWACC 


,6HPCNC i 6HWFS 


6HPCBLC , 6HPC BLDUp 6HPCBL OB * 6HPC BLHP ,6HPCB LLP^6HXP 1 


16HH4 
26HP55 
36HCNF 
46HFAR4 
56HDPC0M 
66HWG5 
76HBLLP 

86HZF , 6HPCHF ,6HZC 

96HPCBLF 

S6HXWAF , 6HXWAC ,6HXBLF 

$6HXT 2 1 , 6HXP21 ,6HXH21 

A6HS23 , 6HT24 ,6HP24 

S6HH25 , 6HS25 ,6HT2B 

DATA (WORDYU), 1-190,2801/ 

16HP29 , 6HH29 ,6HS29 ,6HWAD 

26HETAD ,6H0PDUC , 6HBY PASS,6HDUMS3 i6HTS28 

36HAM28 ,6HTS29 ,6HPS29 ,6HV29 ,6HAN29 

46HXH55 , 6HXS55 ,6HXT25 

56HXWG55 , 6HXFAR55 ,6HXWFD 


,6HS5 
♦6HBLDU 
,6HWA3 
t 6HWAC 


, 6HT55 
,6HBL0B 
, 6HWG4 
, 6HET AB 
6HBLHP 


,6HETATHP,6HDHTCHP,6HDHTC 

»6HCNLP_ ,6HETATLP »6HDHTCLP, 6HDHTF 
,6 HALT P , 6HET AR 
»6HTFFHP , 6HTFFLP 


»6HXBLDU 
,6HXS2i 
, 6HH24 
,6HP28 


i 6HXH3 
, 6HT23 
,6HS24 
r 6HH2 8 

,6HMFD 


,6HXP25 ,6HXH25 

, 6HXWG24 ,6HXFAR24,6HXXPX 


,6H0UMS1 

,6HP23 

»6HT25 

,6HS28 

,6HWG24 
, 6HPS2 8 
,6HXT5 5 
,6HXS2 5 


,6HT7 
, 6HS8 
,6HHG7 
, 6H V6 
, 6HTS8 
, 6HAM9 
,6HFGPD 
,6HFG 


26HV38 

36HH39 

46HWG37 

56HPS39 

96HT22 

S6HS50 

A6HWACI 


,6HP7 
,6HT9 
,6HFAR7 
>6HAH6 
,6HPS8 
,6HVA 
,6HFGPM 
,6HFN 

,6 HA M3 8 
,6 HP S3 8 
»6HA39 


6HDUMS2 
t 6HH23 
,6HP25 
, 6HT 2 9 

, 6HFAR24 
, 6HV28 
, 6HXP55 
»6HXWFB 
, 6HDUHB 
, 6HH7 
, 6HP9 
•6HETAA 
, 6HTS7 
, 6HV8 
,6HFRD 
, 6HFGM 
, 6HSFC 


66HT6 , 6HP6 ,6HH6 ,6HS6 

76HS7 , 6HT8 ,6HP8 ,6HH8 

86HH9 , 6HS9 ,6HWG6 ,6HWFA 

96HDPAFT ,6HV55 ,6HV25 ,6HPS6 

S6HPS7 , 6HV7 ,6HAM7 ,6HAM25 

S6HAM8 , 6HTS9 ,6HPS9 ,6HV9 

S6HVJD , 6HFGHD ,6HVJM ,6HFGMM 

S6HFGP , 6HWFT ,6HWGT ,6HFART 

DATA (WORDY(I), 1-281,373)/ 

16HWA32 , 6HDPWGDS ,6H0PWI NG,6HWA32DS ,6HA38 

, 6HT38 , 6HH38 ,6HP38 ,6HTS38 

.6HTS39 ,6HV39 .6HAM39 

' 6HCV0WNG. 6HFGMWNG.6HFGPMNG.6HFNWI NG .6HFNM AI N. 6HFW0VFN . 
> 6HFF0VFN . 6HFC0VFN 1 6 HF HNOFN , 6HFN0VFD ,6HV JM , 

#6HP22 .6HH22 .6HS22 .6HT50 .6HP50 .6HH50 , 

t&HPCNI .6HCNI .6HPRI , 6HET A I , 

.&HETATI P.6HDHTC I P .6H0HT I .6HBLIP , 

.6HPCNIDS.6HPR10S .6HETA IOS> 6HWAI DS , 

A6HPRICF . 6HETA I CF . &HWA ICF .6HTFI PDS.6HCN! PDS ,6HETI POS. 6HTF I PCF . 
$6HCNIPFC.6HETI PCF t6HDHIPCF.6HMAICDS.6HWA I ,6H?CB LI , 6HBL I , 

**"I 220S * 6 HHA21 .6HMG50 .6HFAR50 .6HA24 .6HAN23 . 6HDUMSPL. 

A6HFXFN2M, 6HFXM2CP ,6HAFTF AN,6HPUNT , 6HPCBL ID ,6HP6DSAV, 6HAM6DSV • 
$6HETAASV, 6HFAR7SV ,6HT4PBL ,6HT41 / 


, 6HT39 , 

, 6HBPR INT , 


, 6HMA22 ,6HZI 
, 6HTFF IP ,6HCNIP 


S6HPCBL I P, 6HPCN I GU , 6HZ I DS 


DATA THEEND, BLANK, LI MIT/6HTHEEND.6H ,373/ 

COMMON/UNITS/SI 

LOGICAL SI 

IF( ICON.EQ.l) GO TO 24 
IF (SI) GO TO 22 
WRITE (6,21) 

21 FORMAT ( IX , 30HTHE OUTPUT IS IN ENGLISH UNITS) 
GO TO 24 

22 WRITE (6,23) 

23 FORMAT UX,25HTHE OUTPUT IS IN SI UNITS) 

24 CONTINUE 

GO TO (1,6), ICON 
*** INPUT SECTION 
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o o o <-* 


1 


DO 4 N = l, 150 
NUM=N 

PEAD (5,11) AIN, CHANGE 
IF ( A I N.EQ.THE END > GO TO 5 
DO 2 J=l, LIMIT 
J J = J 

IF ( AIN.EQ.WQRDY( J) > GO TO 3 

2 CONTINUE 

WRITE (6,12) AIN 
GO TO 4 

3 I OUT ( NUM) = J J 

IF (CHANGE.NE .BLANK) WORD Y ( J J ) =CHA NGE 

4 CONTINUE 
WRITE (6,13) 

5 NUM=NUM-1 
RETURN 

C **♦ OUTPUT SECTION 

6 IF (NUM.EQ.l) GO TO 10 
N= NUM 

J = 6 

00 9 1 = 1, NUM, 6 
IF (N.GT.6) GO TO 7 
J = N 

7 N=N-6 

DO 8 K.= 1 , J 
L = J+K-l 
M= I OUT ( L ) 

WOUT(K)=WORDY(M) 

8 AOUT ( K ) = P ARAM ( M ) 

WRITE (6,14) ( WOUT(K ) ,K=1 , J) 

WRITE (6,15) (AOUT(K),K=l,J) 

IF (N.LEO) GO TO 10 

9 CONTINUE 

10 RETURN 


1 

12 

13 

14 

15 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

END 


( 10H0THE WORD ,A6»26H NOT FCUND IN COMMON ARRAY) 
(22HOERROR IN CONOUT INPUT) 

( 26X,A6, 5 ( 9XA6) ) 

( 1H , 20 X6E 15.6) 
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$IBFTC SUBROUTlNE CONVRG ( T I, HI , PI , S I ,FAR ,WG , PA , I DE S , AO , PRt TO ,H0, PO,SO,TS 
10, PSO, VC, AMO, ICON) 

C l CON= 1 SUBSONIC, COMPARE PI WITH PR 

C t CON = 2 SONIC, COMPARE PI WITH PR 

I C0N=4 ERROR 


COMMON/UNITS/Z I 
LOGICAL ZI 
IF (ZI ) GO TO 100 
A J = 77 8. 26 
CAPSF=2116.217 
G=32. 174049 
CPG". 2 50 
GO TO 101 

100 AJ=1.0 

C APSF= 1*0 
G= 1 • 0 
CP G=1 048. 

101 CONTINUE 

CALL PROCOM ( FAR, TI ,XX1, XX2 , X X 3 , XX4 , PH I l ,XX6 ) 

C *** SONIC CALCULATIONS 
J = 0 

T S S=0 • 833* T I 

i J=J+1 

CALL PROCOM ( F AR, TSS ,C SS , AKS , CP ,RE XS , PH I SS ,HSS > 
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4 
C 

5 


8 


HSCAL=Hl-CSS**2/( 2* *G*A J ) 

DELHS=HSCAL-HSS 

IF ( ABS(DELHS)-0.0005*HSCAL) 4,4,2 
TSS=TSS+DELHS/CP 
IF ( J- 15 > 1,1,3 
I CON- 4 
RETURN 

IF (IDES) 12,12,5 

*** ISENTROPIC EXPANSION CALCULATIONS 
J = 0 

TS I=T I* (PA/P I) **0.206 
J = J+l 

CALL THERMO (PA,HSI ,TSI,SSI , X X 1 , 1 , FAR , 0) 

IF (ABS( SS I-SI >-0«0001*SI ) 8,8,7 
TSI=TSI/EXP( (SSI- SI )/CPG) 

IF ( J— 30) 6,6,3 
V I S = SQRT ( 2* *G*A J* (Hl-HSI ) ) 

IF (VIS-CSS) 9,11,11 
C *** SUBSONIC DESIGN, CALCULATE AO 
9 V0 3 VIS 
T SO = T S I 
PSO=P A 

CALL PROCOM ( F AR, T SO , C SO , XX2 , X X3 ,R EX , PH I SO ,HSO ) 
R HO = CAPSF*PSO/ (AJ*REX*TSO) 

AO=WG/ (RHO*VO> 

AM0 3 V0/CS0 
P R=P I 
I CON= 1 
TO=TI 
HO = H I 
P0 3 PI 
SO = SI 
RETURN 

C **♦ SONIC DESIGN, CALCULATE AO 
VO*CSS 
TSO=TSS 


10 


11 


PSO*P I *( TSO/TI )** ( AKS/ ( AKS-1# ) ) 
RH0=CAPSF*P$0/( AJ *REX$*TSO) 

AO=WG/ (RHO*VO> 

AMO 3 1*0 
PR = P I 
I C0N=2 
GO TO 10 

C ♦** NON-DESIGN, CALCULATE CRITICAL CONDITIONS 

12 VO=CSS 
T SO=TSS 
PSO = P A 


RH0 3 CAPSF*P$0/(AJ*REXS*TS0) 

AOCR I T=HG/ ( RHO* VO ) 

A M0= 1 • 0 

PR = PSO*(TI/TSO)**(AKS/(AKS-U ) ) 

IF (AO-AOCRIT) 13,13,14 

c *** NON-OESIGN, CRITICAL AND SUPERCRITICAL CONDITIONS 

13 PSO=PSO*AOCRIT^AO 
PR=PR*AOCR IT/AO 

I C0N=2 
GO TO 10 

C *** NON-DESIGN, SUBSONIC CALCULATIONS 

14 P $0 = P A 


15 


16 

17 


J = 0 

TSO=0.833*TSO 

J=*J+1 


CALL PROCOM ( F AR, T$0 ,C SO , AKO , CP 
RHO=CAPSF*PSO/( AJ*REX*TSO I 
VO=WG/ (RHO*AO) 


,R EX , PH I SO, HSO) 


HSCAL= ; H!-V0**2/(2**G*AJ) 

DELHS=HSCAL-HSO 

IF ( ABS(DELHS)-0.0005*HSCAL) 17,17,16 
T SO=T SO+DELHS/CP 
IF ( J - 1 5 ) 15,15,3 
AMO = V Q/C SO 

PR = PS0*(TI /TSO)** (AKO/( AKO-l. ) ) 

I C 0N= 1 
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* 


100 

101 


1 

2 


5 


tPS9 9 V9 
r FGMM » FG PD 
»FG f FN 
* AH38 t V38 

»H39 r P39 F 

fCVOWNGt FGMWNGi FGPWNGf 
? FFOVFN» FCOVFNf FMNOFNf FNOVFDf 
rS22 i T50 r P50 r H50 


r AM9 
» FGPH 
tSFC 
»T38 
»TS39 


3TS8 ,PS 8 ,V 8 9 AM 8 ,TS 9 

4VA f FRD f VJD 9 F GMD ,VJM 

5FGM f FGP » WFT ,WGT 9 FART 

6WA32 , DPWGOS,OPW ING , WA320S 9 A38 

7H38 ,P38 t TS38 f PS38 f T39 

8V39 9 AH 39 ,A39 » BPR I NT 9 WG37 

9FNWINGf FNMAIN, FW0VFN f PS39 
^VJH 9 T 22 r P22 ,H22 

COMMON /ALLS/ 

1S50 »HA22 9 ZI tPCNI 9 CNI ?PRI *ETAI •HACr 

2TFFIP 9 CNIP , ETATIP,OHTCIP,DHT[ ,BLIP 9 PC BL I P f PCN IGU 

3ZIDS 9 PCN IDS 9 PRI CS # ETA I OS 9 WA IDS 9 PRICF 9 ET AI CF # w AICF * 

3WAI 9 PCBLI 9 BL I fT22DS 9 MA21 9 WGSO f FARSO .A24 

6AM23 , DUMSPL,FXFN2M,FXM2CP # AFTFAN9PUNT , PC BL ID • P 6 DSA V 

7AM6DS V 9 ETA A SV 9 F AR 7SV# T4P BL f T41 JfaN ,ISPOOL 

/ ^^ D I I RAN ' TIME,DT,T ' : ’ JTRAN ' NSTEP ' Tp RINT,DTPRNT 
LOGICAL ERRER, FXFN2M»FXM2CP,DUMSPL .FAN 
DIMENSION DELS AVI 9 ) 

COMMON/ERER/ERRER 

D^riZo^HENGB AL/ 9 ’ ’ ERRB ' ? ’ '°E LVA RI9» ,EMAT( 9.9 , , VMAT < 9 > 
DATA VOELTA,VLIM t VCHNGE 9 NOMI SX / 

1 l.E-4,0.100t0.850,4/ 

DATA DEL/9*0./ 

DATA DELSAV/9* 1. E- 4 / 

I F ( I TRAN. NE • 1 ) GO TO 100 
CALL SYG(l) 

J TRAN = 1 
IN IT -1 

NSTEP=N$TE P* 1 


T IME=DT*FL0AT{ NSTEPI 

IF( TIME.GT.TF ) GO TO 100 

CALL DISTRB 

CALL COINLT 

GO TO 101 

CALL PUTIN 

CONTINUE 

IF (INIT.EQ.1) GO TO 1 
TFFHP=TFHPDS 

tffip=tfipds 

IF (FXM2CPJ TFF IP*TFHPDS 
TFFLP=TFLPD$ 

L0OPER=0 
NUMM AP=0 
NOM I S S=*0 
LOOP=0 
M I SMAT *0 
NQMAP=0 


9 AMAT ( 9 ) 


IG0^2 


DO 3 1*1,9 
VMAT( I )=0. 

AMAT ( I >=0. 

DELVARt I 1 = 0. 

DO 3 L= 1 9 9 
EMAT( I 9 L )*0. 

LOOPER=LOOPER+ 1 
CALL COFAN 
WORD* AWORD 

IF(.NOT.FAN) OUMSPL=.TRUE. 

IF (LOOPER.GT. ITRYS) ERRER=.TRLE. 
IF ( LOOPER.GT. I TRYS) GO TO 26 
IF (NOMAP. GT.O» GO TO 2 
NUMMAP=0 


VAR ( 1 )=ZF* 100. 
IF (M0DE.NE.3) 
IF ( MODE « E Q. 3) 

V AR ( 3>=ZC*100. 
IF (MOOE.NE.l) 
IF (MODE.EQ.l) 
VAR ( 5 I =TFFHP 
VAR ( 6 > = TFF LP 

V AR ( 7 ) =Z I* 100 . 

V AR ( 8 I =PCN I 


VAR(2)=PCNF 
VAR( 2 I =T4/10. 

VAR(4)=PCNC 

VAR(4I=T4/10. 
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V ARC 9 >“TFF I P 
NMAX*9 

I F ( FAN ) GO TO 39 
NMAX*6 

IF! I SPOOL .EQ.2 I GO TO 7 
NHAX*3 

V AR ( 3 > =TFFLP 
GO TO 7 

39 [ F ( .NOT.FXFN2N .AND. t .NOT . OUMS PL > ) GO TO 6 

NM AX*7 

IF ( DUHSPL > NMAX* 6 

6 IF ( .NOT.FXM2CP) GO TO 7 
NMAX*7 

VAR ( 4 )*PCN I 
V ARC 5 ) *TFF I P 

7 CONTINUE 

DO 8 I * If NMAX 

IF (ABSCERRC III .GT.TQLALL) GO TO 9 

8 CONTINUE 

I F ( ITRAN. EQ. 1 ) CALL ROLL 

CALL PERF 
CALL ERROR 

9 IF (LOOP.GT.O) GO TO II 

MAPEOG*0 

MAP$ET*0 
DO 10 1*1 » NMAX 
ERRBC I >*ERR( I > 

10 DEL ( I)*VDELTA*VAR(I > 

GO TO 14 

n IF (MlSMAT.GT.O) GO TO 29 

IF (MAPEDG.EQ.O > GO TO 12 
MAPEDG*0 
MAPSET-1 

VAR < LOOP I* VAR ( LOOP) *2. ♦OEL(LOOP) 

SO TO 15 

12 IF < MAPSET .EQ.O ) VAR C LOOP >*VAR (LOOP) ♦DEL ( LOOP) 
IF (MAPSET • EQ. 1 > VAR (LOOP > *VAR (LOOP I-OELC LOOP) 
MAPSET*0 

DO 13 1*1 1 NHAX 

IF ( DEL ( LOOP )• NE* 0* > DEL SAVC LOOP)*DEL ( LOOP ) 

IF ( DELCLOOP >.EQ. 0* ) DEL ( LOOP I *DEL SAVC LOOP ) 
EMATC I « LOOP )* ( ERRBC I )-ERR( I > ) ZOELl LOOP) 

13 CONTINUE 

14 L00P*LQ0P+1 

IF (LOOP. GT. NHAX) GO TO 17 
VAR ( LOOP )*VARCLOOP)-DEL< LOOP) 

15 Z F*VAR ( 1 ) / 100. 

IF ( HODE.NE .3) PCNF*VAR(2) 

IF ( MODE. EQ. 3> T4*VARC 2) 410. 

ZC*VAR C 3) / 100. 

IF ( MODE .NE . 1) PC NC*VARC 4 ) 

IF C MODE. EQ* 1) T4*VAR< 4) *10. 

TFFHP-VARC 5) 

TFFLP*VARC 6 ) 

Z I *V AR ( 7) / 100. 

PCNI*VARC 8) 

TFF 1P*VAR (9) 

IF t • NOT.F XM2CP > GO TO 16 
PCNI* VARC 4 ) 

TFFIP-VARC5) 

16 IF C ISPOOL.EQ. 1> TFFLP-VARC3) 

IF CZI.LT.O.) Z 1*0. 05 

IF CZF.LT.O.) ZF»0. 05 
IF (ZC.LT.O.) ZC* 0*05 
GO TO C 2t 4) t IGO 

17 DO 18 1*1 » NMAX 

18 AMATC I >«-ERRB( I ) 

DO 20 1*1 • NMAX 

I Z ERO*0 

DO 19 LOOP*li NMAX 

19 IF CEMATC I , LOOP ) . EQ. 0* ) I ZERO* IZER0+1 
IF ( IZERO.LT.NMAX ) GO TO 20 

WRITE (6,32) I 

OMGWALPAGBB 

of POOB QUAUl* 
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147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 
17V 
180 
181 
182 

183 

184 

185 

186 

187 

188 
189 



20 


21 


22 

23 


24 


25 


26 

27 

28 


29 

30 

31 


C 

C 

32 

33 

34 

35 

36 

37 


38 


L 00PER-I TRYS+100 
GO TO 26 
CONTINUE 

00 22 LOOP* 1, NMAX 
IZERO-O 

DO 21 1*1 i NMAX 

IF ( EMAT { 1 , LOOP ) • EQ» 0. > I ZERO* IZERO+1 

IF ( I Z ERO. LT.NMAX > GO TO 22 

WRITE (6,33) LOOP 

LOOPER-ITRYS+lOO 

GO TO 26 

CONTINUE 


CALL MATRIX ( EMAT , VMAT ,AMAT, NMAX) 

LBIG*0 

VARBIG-O. 

DO 24 L*1 , NMAX 
ABSVAR*ABS ( VMAT ( L ) ) 

IF ( ABSVAR.LE.VLIM*VAR(L> ) GO TO 24 
IF I ABSVAR.LE. VAR BIG) GO TO 24 
LB IG*L 

VARB I G*ABS VAR 
CONTINUE 
VR AT 1 0*1*0 

IF ( LBIG. GT.O) VRAT IO*VL I M*VAR (LBIGI/VARBIG 

ERRAVE-0.0 

VMTAVE-0.0 

DELAVE*0.0 

DO 25 L*1 * NMAX 

DELVAR ( L >* VRAT 10* VMAT ( L) 

ERRAVE-ERR AVE+ABS (AM AT (L ) I /FLOATC NMAX) 

VAR(L)*VAR(L)+DELVAR(L) 

VMTAVE-VMTAVE+ABS (VMAT(L) ) /FLOAT! NMAX ) 

DEL AVE-DEL AVE+ABS (DELVAR ( L >1 /FLOAT! NMAX) 

IF ( M I SMAT .GT.O ) GO TO 31 
IF ( NOMISS.EQ.O) MISMAT-) 

IF (MISMAT.EQ.O) IG0*1 
WRITE (8,34) LOOPER 
DO 27 !*1 , NMAX 

WRITE (8,35) A MAT (I > , ( EMAT (!,L>,L*1,9) ,VMAT( I) ,DELVAR( I) ,VAR( I ) 

WRITE (8,36) ERRA VE, VMTAVE ,DE LAVE 

IF ( LOQPER.LT. ITR YS) GO TO 15 

CALL ERROR 

RETURN 

VMTAVX* VMTAVE 
00 30 1*1, NMAX 
A MAT ( I )*-ERR(I ) 

GO TO 23 

WRITE (8,37) AMAT ,ERRAVE , DELVAR, OELAVE , VMAT, VMTAVE , VAR 
M I SMAT *Ml SMAT+1 


IF ( VMTAVE.LT. VCHNGE*VMTAVX) GC TO 28 
WRITE (8,38) 

IF (MISMAT. LT.NOMISX) NOMISS*! 

MISMAT-0 

L00P*0 

I GO- 2 

GO TO 5 


FORMAT ( 4H0R0W , 12 , 16H IS ZERO IN EMAT) 

FORMAT ( 7H0C0LUMN ,12, 16H IS ZERO IN EMAT) 

FORMAT (8HB ERR B, 28X23HERR0R MATRIX AFTER LOOP , 14, 29X4HVMAT»6X6t 
1DELVAR ,7X 14HVARI ABLE $$$$$$) 

FORMAT ( 1H0,F8.4, 10F9. 3, 2F1U4 ,6H$$$$$$) 

FORMAT ( 1H0, F8.4, 32X14HAVERAGE VALUES, 31X,2F 11.4, 6H$$$$$$) 

A"*T,10F11.6,6H*$t*»t,/,12H DELVAR , 10F 1 1 .< 

*! VHAT,X0FU.6,6H**t$»t,/,12H VAR.9F1 

21.6, 6H $$»$$$ ) 


FORMAT ( 1H0,50X22HCHANGE TOO SMALL$$$$S$) 
END 
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IIBFTC ERROR 

SUBROUTINE ERROR 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1 IDES « JOES f KOE S #MODE 
21 DBURN 1 1 AFTBNi I DCD 9 IMCD . - 

3L00PER 9 NOMAP » NUMMAP* MAPEOG 9 TOLALL f ERR(9 > 

COMMON /ALL1/ _ „ M nciccr 

1 PCNFGU 9 PCNCGU 9 T4GU ,DUMD1 fOUMD2 9 DELFG »?ELFN f OEtSFC f 


f INIT » IDUMP tlAMTP » I GASMX* 

f IDSHOC»IMSHOC»NOZFLTtiTRVS » 


2 / fds Ipcnfds'prfds , etafds , wafds »prfcf ,etafcf,wafcf 

3ZC0S 9 PCNCDS* PRC 0$ , ETACDS, WACOS 
4T4DS » WFBDS 9 DTCODS .ETABDS, W A 3 CDS 9 OPCODS, DTCOCF 9 ETABCF , 

5TFHPDS f CNHPDS9ETHPDS9TFHPCF,CNHPCF f ETHPCFt DHHPCF t T2DS 9 

61 FLPDS 9 CNL PDS 9 ETL POS 9 TFLPCF 9 CNLPCF 9 ETLPCF» 0HlPCFtT2i0S 1 
7T24DS f WFDDS f DTD UDS t ETADDS 9 WA23DS 9 DPDUOS» DT DUCF 9 ETADCF 9 
8TT0S 9 WF ADS , OTA FDS • ETA ADS ,WG6CDS 9 OPAFDS 9 DT AFCF , E TAACF , 
9A55 #A25 9 A 6 9 A 7 9 A 8 9 A 9 9A28 tA29 9 

$PS55 9AM55 9 CVDNOZ 9 CVMNOZ 9 A 8 SAV f A9SAV 9 A28S AVt A29SAV 

COMMON /ALL2/ 


IT 1 

2T21 

3T4 

4T55 

5CNF 

6CNC 

7CNHP 

BCNLP 

9AM 

ITFFHP 


# H1 9SI 9T2 

f H2l 9S21 »T3 

9 H4 f S4 »T5 
9 H55 9S55 9 BLF 

, ETA F 9 WAFC 9 WAF 
v ETAC 9 W ACC » W AC 
\ ETATHP9 DHTCHP 9DHTC 9BLHP 
,ETATLP9DHTCLP»DHTF 9BLLP 
tALTP 9 ETAR 9 ZF 9PCNF 
iTFFLP 9 PCB LF ,PCBLC 9 PC BLC 


pPI 
,P21 
f P4 
9 P55 
9 PR F 
, PRC 


COMMON /ALL3/ 


IXP1 
2XT21 
3T24 
4T28 
5WAD 
6TS28 
7XT55 
8XWFB 
9T6 
IT 8 


9 XWAF 
9 XP2 1 
, P24 
t P28 
9 WFD 
F PS28 
9 XP55 
9 XWG55 
9 P 6 
iPB 


» XWAC 
9 XH2 1 
,H24 
9 H28 
9 WG24 
9 V28 
t XH5 5 


,XBLF 
9 XS2 1 
, S24 
9 S28 
f FAR24 
t AM28 
v XS55 


9 XF AR55 9 XWFD 


f H6 

,H8 


9 S 6 

1 S 8 


t T23 
9T25 
»T29 
, ETAO 
,T S29 
,XT25 
9 XWG24 
9T7 
.T9 


COMMON /ALL4/ 


1WG6 

2PS6 

3 TS 8 

4VA 

5FGM 

6WA32 

7H38 

8V39 


9 WFA 
9 V 6 

f PS 8 

9FRO 

9 FGP 


9 T S9 
9 V JM 
, FART 


. WG7 # FAR7 9 ETAA 
« AM6 9TS7 9PS7 

f V8 » AM8 

9 V JD f FGMD 

f) „. 9 WFT 9 WGT 

9OPWGOS 9 DPW ING 9 WA32DS, A3 8 
, P38 9 TS3 8 ,PS38 .T39 

9 AM39 9 A39 ,BPRINT,WG37 
9FNW ING 9 FNMAIN9 FWOVFN 9 PS39 9FFOV 
IV JW 9T22 9P22 9H22 9S22 

COMMON /ALLS/ 

2TFFIP ISp IeUTIpIdHTCIP.OHTI .BLIP 

„ Tn r PTN I DS • PR ! OS 9 ETA! DS. WA IDS fPRICF 9 ET AI CF t W AICF 

4TF IPOS »CNI PDS. ETI ^OS.TFIPCF.CN IPCF.ET IPCF.DHIPCF.WMCOS. 

5WAI 9 PCBLI 9 BLI f T 22 DS f WA2l 9 WGI>U 
6AM23 9 DUMSPL, FXF N2M 9 FXM 2 CP 9 AFTFAN 9 PUNT 

7AM6DSV. ETAA SV. FAR 7SV.T4PBL -T41 fFAN 
COMMON /WHR ERR/ I CO AFB 9 ICODUC 9 I C CM IX 
IF ( ICOAFB *LT. 1> IC0AFB*0 


P2 

9 H 2 

9S2 

9 

P3 

9H3 

t S 3 

9 

P5 

9H5 

tS5 

» 

BLC 

» BLDU 

9 BLOB 

f 

WA3 

9 WG4 

f F AR4 

» 

rETAB 

9 DPCOM 

, DUMP 

9 

1 WG5 

9 FAR5 

,CS 

9 

,WG55 

t FAR55 

9 H PE XT 

* 

.ZC. 

9 PCNC 

,WFB 

9 

PCBLOB 9 PC BLHP 

9 PCBLLP 

XH3 

9 DU MS 1 

• DUMS2 

9 

9 P23 

9 H23 

» S 23 

9 

f P25 

9 H25 

9 S25 

» 

tP29 

t H29 

,S29 

9 

t DPDUC 

, BYPASS, DUMS3 

9 

»PS29 

9 V29 

,AM29 

9 

• XP25 

9 XH 25 

9 XS25 

9 

.XFAR24.XXPI 

9 DUMB 

9 

9 P7 

• H7 

tS7 

f 

9 P* 

9 H9 

» 59 


9 DPAFT 

t V55 

f V25 


tV7 

9 AM7 

t AM25 


#PS9 

tV9 

y A M9 


9 FGMM 

9 FGPO 

9 FGPM 


.FG 

9 FN 

,SFC 


v A M3 8 

t V38 

»T 38 


tH39 

9 P39 

,TS39 


.CVDWNG.FGHWNG.FGPWNG, 

.FCOVFN.FMNOFN.FNOVFD, 

fT50 

9 P50 

, H50 


rPRI 

9 ET AI 

.MAC I 

9 


9 FAR50 9 A24 
9 PC BL ID» P6DSAV 9 
, I SPOOL 


IF 

IF 

IF 

IF 

IF 


• LT • 

• LT. 

• NE« 
•NE- 
*NE < 


L> 

1) 

0) 


ICOMI X*0 
ICODUC-O 

_ WRITE (69 10 ) ICOAFB 
0) WRITE( 6 f ll> ICODUC 
0 > WRITE ( 69 12 > ICOMIX 
IN COAFBN IS AT 
IN COOUCT IS AT 
IN COMIX 


( ICOMIX 
(ICODUC 
( ICOAFB 
( ICODUC 
.. (ICOMIX 

10 FORMAT (27H THE ERROR 

11 FORMAT (27H THE ERROR 

12 FORMAT (27H THE ERROR 
LOGICAL ERRER 

EQUIVALENCE ( TR ASH1 9 PCNFGU >p(TRASH2fTl>t (TRASH3t XP 1 > 1 1 TRA6H*. « v»o 
EQUIVALENCE (TRASH5 # S50) 


IS AT 


tI3> 

9 13) 

913) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 


71 



09^c>^>u»Mno 


OATA AWORO/ 6 HCOMMON/ 74 

ERRER-.TRUE. 75 

WRITE ( 6,21 WORD 76 

WORO-AWORO 77 

WRITE (6,3) WORD, ZF, PCNF,Z I , PCNl , ZC,PCNC ,T4, MODE 78 

WRITE ( 6 , 6 ) 79 

WRITE (6,5) (TRASH1I I) ,1-1,80) 80 

WRITE ( 6 , 6 ) 31 

WRITE (6,5) (TRASH2( I), 1-1,80) 82 

WRITE (6,4) 83 

WRITE (6,5) (TRASH3I I), 1-1,80) 84 

WRITE (6,4) 85 

WRITE (6,5) (TRASH4I I), 1-1,80) 86 

WRITE (6,4) 87 

WRITE ( 6 , 8 ) (TRASHS(I), 1-1,55) 88 

WRITE (6,4) 89 

WRITE (6,7) LOOPER 90 

IF (IDUMP.EQ.O) GO TO 1 91 

WRITE ( 6 , 6 ) 92 

CALL SVG (2) 93 

1 CALL ENGBAL 94 

RETURN 95 

96 

97 

FORMAT (28H0AN ERROR HAS BEEN FOUND IN ,A 6 > 98 

FORMAT (1H0,A6,9X,7E15.6,I4) 99 

FORMAT ( 2H0 ) 100 

FORMAT ( 1 H .8E15.6) 101 

FORMAT (IH1) 102 

FORMAT (25H0FAILED TO CONVERGE AFTER, L4,6H LOOPS) 103 

FORMAT ( 1H + , 30X ,6E15. 6 /( 1H ,8E15.6)) 104 

END 105 


tIBFTC ETAAB 

SUBROUTINE ETAAB (FAR, EM 6 .P 6 , ETA, ETAADS,ETAASV,P 6 DS, P 6 DSAV, AM 6 DS, A 1 

1M60SV, IDE S , FAR 70S ,FAR7SV ) 2 

DIMENSION FART ( 25 ) , ETABRT ( 25 > , EM6T (7) ,0ELM6( 7) ,P6T 114), DEL P6 (14) 3 

DIMENSION X( 3) , V( 3) 4 

OATA FART/. 0390,. 0585,. 0732,. 6878,. 0976,. I 171,. 126 8 ,. 1463, .1619, 5 

1.1834. . 1951.. 2195.. 243 9.. 2927.. 341 5.. 4146 ..4634.. 5366.. 6341 ..7317, 6 

2.8293. . 9268. 1.000. 1.0634. 1.7/ 7 

DATA ETABRT/. 9400, .9887,1. 0193, 1.0306, 1.0227, .9672, .9377, .9207, 8 

1.9354. . 9626.. 9773. 1.0 193. 1.0532. 1.077. 1.0781 .1.077.1.0747. 1.0668, 9 

21.0578. 1.0510. 1.0374.1. 0192. 1.00. .9626.. 9151/ 10 

DATA EM6T/1. 00, 1.071,1.190,1.309,1.428,1.547,1.666/ 11 

OATA DELM6/0. ,.013, .041, .073, .110, .147,. 187/ 12 

DATA P6T/. 220, .22 67,. 250,. 300,. 3333,. 3767,. 4 167,. 500, .5833,. 6667, 13 

1.75. . 8333. .9167. 1.0/ !4 

DATA DELP6/-. 142, -.125 ,-.10, -.075, -.062, -.05 ,-.041 ,-.027, -.019, 15 

1-. 013, -.008, -.004, -.0021,0./ 16 

IF (IDES.NE.l) GO TO 5 17 

DO 1 K-1,25 18 

1 ETABRT (K)-ETABRTI K)*ETAADS/ETAASV 19 

DO 2 K-1,25 20 

2 FART ( K )»F ART ( K) *F AR70S/FAR7SV 21 

DO 3 K-1,7 22 

3 EM 6 T ( K )«EM 6 T ( K ) *AM 6 DS/ AM 6 DSV 23 

DO 4 M>1,14 24 

4 P 6 T( H ) -P 6 T ( M )*P 6 DS/P 6 D SAV 25 

ETAASV-ETAAOS 26 

P6DSAV-P60S 27 

FAR7S V-FAR70S 28 

AM60S V-AM6DS 29 

RETURN 30 

5 CONTINUE 31 

N-0 32 

IF (FAR. GT. 0.067) GO TO 8 33 

DO 6 J-1,25 34 

6 IF (FAR.GE.FARTt J )> N-J-l 35 



IF (N.EQ*0> N-l 
IF (N#GE*24) N*23 
00 7 1*1.3 
NN*N-1+I 
X ( l >*FART(NN> 

7 Y ( I )*E TABRT I NN > 

CALL PARABO ( X . Y . FAR . ETA1 > 

GO TO 9 

8 ETA1=-2**FAR+. 1948 

9 M*0 

DO 10 J*1 . 7 

10 IF (EM6.GE.EM6TUM M-J-i 

IF (M.EQ.O) M«1 

IF (M.GE.6) M*5 
DO 11 1*1.3 
MM*M-l+l 
xm*EM6T<HM> 

11 YI I )*DELM6 ( MM) 

CALL PARABO ( X. Y. EM6.C0R1 > 
L-0 

DO 12 J-1.14 

12 IF (P6.GE.P6K J>> L*J-1 

IF (L.EQ*0> L* 1 

IF IL.GE.13) L= 12 
DO 13 1*1.3 
LL*L-1+I 
X( D-P6TCLL) 

13 Y ( I >*DELP6( LL > 

CALL PARABO ( X . Y. P6.C0R2) 
ETA*ET Al* ( 1--C0R1 >*( 1.+C0R2I 
RETURN 
END 


36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 


FTC FASTBX 

SUBROUTINE FASTBK 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES .JOES .KDES .MODE 
21 DBURN . I AFTBN. I DC D . IMCD 
3L0GPER . NOMAP . NUN MAP, MAPEOG 
COMMON /ALL 1 / 

1PCNFGU. PCNCGU, T4GU .DUMOl 
2IFDS ,PCNFDS, PRFDS .ETAFDS, 
3ZCDS , PCNCDS. PRC OS .ETACDS, 
4T40S , WFBDS , DTCODS , ETABDS 

5TFHPDS .CNHPDS. ETHPDS.TFHPCF 
6TFLPDS,CNLPDS,ETLP0S,TFLPCF 

7T240S , WFODS . OTDUOS . ETADDS 
8T70S f WF AOS , DTAFOS , ETA AOS 
9A55 . A25 ,A6 .A7 

$P$55 . AM55 .CVDNOZ.CVMNOZ 

COMMON /ALL 2/ 

IT 1 ,P1 .HI .SI 

T21 , P21 ,H21 

. H4 


r55 


NHP 


,P1 
, P21 
*P4 
,P55 
, PRF 
,PRC 


, H55 
, ETAF 
, ETAC 


,S1 
. S21 
,S4 
» S55 
9 WAFC 
, W ACC 


[ N IT , IDUMP .lAMTP ,IGASMX» 
1 0 $HOC . I MSHOC , NOZF LT .ITRYS , 
TOLALL .ERR (9 ) 


DUM02 

WAFDS 

WACOS 

WA3C0S 

CNHPCF 

CNLPCF 

WA23DS 

WG6CDS 

A8 

A8SAV 

T 2 
T3 
T 5 
BLF 
WAF 
WAC 
B LHP 
BLLP 


. DELFG , 
, PRFCF • 
. PRCCF . 
, DPCODS. 
fETHPCF , 
, ETLPCF . 
. OPDUDS, 
t DPAFDS, 
» A9 , 
.A9SAV , 


DELFN , DELSFC 

ETAFCF.WAFCF 

ET ACCF tWACCF 

DTCOCF.ETABCF 

DHHPCF.T20S 

DHLPCF.T210S 

DTDUCF.ETAOCF 

OTAFCF.ETAACF 

A28 . A 29 

A28S AV. A29SAV 


• P2 
,P3 
. P5 
,BLC 
. WA3 
,ETAB 
9 WG5 
. WG55 


,H2 
» H3 
. H5 
, 8 LOU 
t WG4 
. DPCOM 
9 FAR5 
v FAR5 5 


,S2 

,S3 

.S5 

.BLOB 

. F AR4 

.DUMP 

.CS 

.HPEXT 


Ob r 

9AM 

. ALTP 

. ETAR 

tZF 

. PCNF 

»zc 

, PCNC ,MFB 

ATFFHP 

.TFFLP 

t PCBLF 

. PCBLC 

.PCBLDU 

tPCBLOB 

« PC BLHP , PCBLL P 

COMMON /ALL3/ 






1XP1 

, XWAF 

. XWAC 

.XBLF 

. X BLOU 

. XH3 

, DU MS 1 » DUMS2 

2XT21 

9 XP2 1 

, XH21 

t XS2 1 

.T23 

. P23 

» H23 ,S23 

3T24 

,P24 

,H24 

. S24 

,T25 

. P25 

» H25 » S25 

4T28 

.P28 

. H28 

. S28 

. T2 5 

,P29 

,H29 »S29 

5MAD 

, WFD 

, WG24 

. F AR24 

, ETAC 

,DPDUC 

, BYPASS, DUMS3 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 




1 


6TS28 

fPS28 r V28 * AM2 8 

t TS29 

7XT55 

* XP 55 t XH5 5 ,XS55 

» X T 25 

8XWFB 

* XWG55 f XFAR55 y XWFD 

» XWG24 

9T6 

yP6 ,H6 y S6 

» T 7 

$T 8 

yP8 ,H8 f S8 

t T9 

COMMON 

1 /ALL4/ 


1WG6 

yWFA y WG7 yF AR 7 

yETAA 

2PS6 

yV6 , AM6 ,TS7 

y P S 7 

3TS8 

t P SB ,V8 y AM8 

yTS9 

4VA 

rFRO yVJD yFGMO 

yV JM 

5FGM 

yFGP yWFT yWGT 

y FART 

6WA32 

f DP WGDSy DPW ING y WA32DS 

y A38 

7H38 

f P 38 y TS3 8 * P S3 8 

» T3 9 

8V39 

y AM39 , A39 , BPR I NT 

y WG37 

9FNWI NG 

yFNMAIN»FW0VFN f PS39 

y FFOVFN 

$VJW 

yT22 y P 22 yH22 

» S22 

COMMON 

/ALL 5/ 


1S50 

yWA22 yZI ,PCNI 

,CNI 

2TFFIP 

yCNIP y ETAT I P f DHTC I P 

yDHTI 

3Z IDS 

jPCNIDSyPRIDS f ETA l DS 

y WAIDS 

4TFIP0S 

yCNIPDSyET! PDSyTFIPCF 

yCNIPCF 

5WAI 

,PCBLI y BL I y T22D S 

y WA 21 

6AM23 

,DUMSPL,FXFN2M,FXM2CP 

y AFTFAN 

7AM6DSV 

yETAASV, FAR7SV,T4PBL 

y T 4 1 


LOGICAL FAN 

X T 55 = T 55 

XP 5 5=P 55 

X H5 5=H55 

X S 55 = S 55 

I F ( F AN > GO TO 1 

T 25=T 2 l 

P25=P21 

H25=H2 1 

$25=$ 2 1 

WG24= WAF-BLF 

X T 25= T 25 

X P 2 5= P 2 5 

X H 25= H 2 5 

X $ 25= S 25 

XWFB=WFB 

X WG55=WG55 

X F AR 5 5=F AR 55 

X WFD= WFD 

X W G24 = WG24 

X F AR 24= FAR 24 

XXP1=P1 

CALL COMIX 

RETURN 

END 


y PS29 

,VZ9 ,AM29 , 

yXP25 

f XH 25 ,XS25 , 

yXFAR24yXXPl » DUMB , 

yP7 

y H7 y S 7 , 

» P9 

y H9 ,S9 

yDPAFT 

y V5 5 # V25 t 

yV7 

y AM7 y A M25 , 

y PS9 

yV9 y AM9 , 

yFGMM 

yFGPD y FGPM , 

»FG 

r FN ySFC , 

y AM3B 

» V38 yT38 y 

y H39 

#P39 y T S39 , 

yCVDWNG 

y FGMWNGy FGPWNGy 

rFCOVFN 

y FMNOFNy FNOVFDy 

yT50 

yP5 0 y H50 

y PR I 

yETAI ,WACI , 

yBLlP 

yPCBLIPyPCNIGUy 

yPRICF 

»ETAICF,WAICF , 

yETIPCF 

, DHIPCFyWAICDS, 

yWG50 

i FAR50 r A24 , 

t PUNT 

y PCBL ID t P6DSAV, 

i FAN 

y I SPOOL 


35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 
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62 
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$ IB FTC FRTOSD 

SUBROUTINE FRTOSD 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES » JDE S r KDE S *M ODE ,INIT ,IDUMP ,IAMTP ,IGASMXy 
21 OBURN t IAFTBN, IDCD , IMCD , I DSHOC » I MSHOC » NOZF LT » I TRYS » 
3L00PER, NOMAP , NUM MAP , M AP EDG, T CL ALL ,ERR(9> 

COMMON / AL L 1 / 

1PCNFGU f PCNCGU » T4GLi ,DUM01 ,DU MD2 ,DELFG , DE LF N » DELSFC , 
2ZF0S f PCNFDS » PRF DS ,ETAFDS» WAFDS ,PRFCF , ET AFCF , W AFCF , 
3ZCDS t PCNCDS » PRC DS , ETAC DS , W ACDS yPRCCF y ET AC CF , W ACCF , 
4T4DS , WFBDS , DTC ODS yETABDS. WA3CDS , CPCOD S , DTCOCF , ETABC F , 
5TFHPDS,CNHPDS,ETHPD$,TFHPCF f CNHPCF,ETHPCF,0HHPCF,T2DS , 
6TFLPD$,CNLPDS,ETLPDS ,TFLPCF ,CNLPCF t ETLPCF, DHLPCF r T21DS , 

7 T 24DS f HFDDS » DTD UOS , ET AODS , W A 23DS , DPDUDS# OT OUCF » ET AOCF , 
8T7DS r WFADS t DTA FDS , ETA A DS t WG6C0S , DP A FDS , DT AF CF , E TAAC F , 
9A55 f A25 ,A6 ,A7 f A8 ,A9 f A28 ,A29 f 

SPS55 t AM55 ,C VD NOZ , C VMNOZ , A8 SAV t A9SAV , A2 8S AV * A29$ A V 
COMMON /ALL 2/ 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 




IT 1 

i •< , 

• : 1 


* " J 

»P2 

9 H 2 9 S 2 




/ L 

, S21 


9P3 

»H3 9 S 3 


*. f ^ 

t ' ■* 

» ri-9 

9 s ^ 

|T5 

# P5 

9 H5 9 S 5 


** T : 5 

9^55 

9 H55 

* S55 

, BLF 

» BLC 

9 BLDU 9 B LOB , 


5CNF 

9 PR F 

> t TA F 

» W AFC 

, WAF 

t WA3 

t WG 4 ,FAR4 


6 CNC 

9 PRC 

9 ETAC 

9 W AC C 

9 WAC 

,ETAB 

» DPCOM f DUMP 


7CNHP 

, ETATHP 

9 DHT CHP 

9 DHTC 

9 9 LHP 

9 WG5 

9 F AR5 ,CS 


BC NLP 

« ETATLP 

9 DHT CLP 

9 DHTF 

9 BLLP 

9 WG5 5 

, FA R5 5 9 HPE XT 


9AM 

9 ALT P 

9 ETAR 

tZF 

9 PC NF 

9 ZC 

9 PC NC rWFB 


STFFHP 

9 TFFLP 

v PCB LF 

9 PCBL C 

t PC BLDU 

9 PCBLOB 

,PCBLHP, PCBLLP 

* 

COMMON 

1 /ALL3/ 







1XP1 

1 XWAF 

9 XWAC 

f XBLF 

9 XBLDU 

9 XH3 

9 CU MS 1 9 DUMS2 


2XT21 

9 XP 2 I 

9 XH2 1 

9 XS21 

»T23 

rP23 

f H23 9 S 23 

0* 

3T 24 

*P24 

9 H24 

( S24 

» T 2 5 

1 P25 

,H25 9 S25 


4T28 

fP28 

* H28 

9 S28 

9T29 

,P29 

f H29 t S29 


5WAD 

« WFD 

9 WG24 

9 F AR 2 4 

9 E T AC 

9 DPDUC 

9 BYPASS ?DUMS3 

m 

6TS28 

pPS28 

f V 28 

9 A M2 8 

9 T S29 

» PS29 

9 V29 9 A M2 9 


7XT55 

9 XP55 

9 XH5 5 

9 XS55 

9 X T 25 

9 XP25 

9 XH 25 ,XS25 


8XWF9 

9 XWG55 

9 XFAR55 

9 X WFD 

t XWG24 

,XFAR24,XXP1 f DUMB 

0k 

9T6 

i P6 

* H 6 

t 56 

f T 7 

tP7 

,H7 t 57 


ST 8 

tP 8 

,H 8 

9 S 8 

9 T 9 

• P9 

,H9 *S9 


COMMON /ALL4/ 


1WG6 tWFA 
2PS6 ,V6 
3TS8 »PS8 
4VA » FRO 
5FGM ,FGP 
6W A 32 » OPWGDS 

7H38 # P38 

8V39 9 AM39 

9PNH JNGt FNMA IN 
SVJW f T22 
COMMON /ALLS/ 

IS 50 fWA 22 

2 TFFIP tCNlP 
3Z IDS ,PCNIDS 
4TF IPOS iCNI POS 
5W A I 9 PCBL I 

6AM23 tOUMSPL 
7AM6DSVt ETAASV 
LOGICAL FAN 
XP1*P1 
XWAF-WAF 
X WAC* WAC 
XBLF*BLF 
XBLDU*BLDU 
XH3-H3 
XT21-T21 
XP21*P21 
XH21«H21 
XS21-S21 

I F ( FAN> CALL COOUCT 
I F ( FAN ) RETURN 
CALL FASTBK 
RETURN 
END 


WG7 

AM 6 

V 8 

V JD 
WFT 


,FAR7 

,TS7 


AMB 
9 F GMD 
9 WGT 
OPW ING 9 WA32DS 
TS38 * P S38 
A39 tBPRINT 
FWOVFN » P S39 
P22 9H22 

Zl 9 PCN ! 
ETATIP,DHTCIP 
PRICS 9 ETAIDS 
ETIPDS 9 TFIPCF 
BLI 9T220S 
FXF N2M 9 F XM2CP 
FAR 7S V 9 T4P BL 


, E TAA 
>PS7 
9 T S9 
, V JM 
, FART 
9 A 3 B 
9T39 
9 WG37 


, DPAFT 
tV7 
t PS9 
,FGMM 
9 FG 
9 A M 3 8 
,H39 
jCVDWNG 


9 F FOVFN 9 FCO VF N 
»S22 9T50 


, V55 
9 AM7 
#V9 
9 FGPD 
9 fn 
9 V38 
9 P39 

fgmwng 

19 F HNOFN 

9 P50 


t V25 
f AM25 
9 AM9 
,FGPM 
,SFC 
9 T 38 
»T$39 
FGPWNG 
It FNOVFO 
,H50 


9 C N I , PR I iETAI 9 WAC I 

9 DH T I 1 BL I P 9 PC 8L IP 9 P CN I GU 

9 W A IDS 9 PR ICF 9ETAICF,WAICF 
9CNIPCF, FT IPCF f DHIPCF,WAICDS 
f WA 21 9 WG 5 0 »FAR 50 9 A 24 

, AFTFAN,PUNT 9 PCBL 1 D|P 6 DSAV 
9 T 4 1 9 F AN 9ISPOOL 


lv 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 
. 46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 



V. 


7, 


SIBFTC GEN2 
COMMON 
COMMON 
1 IDES 
2IDBURN 
3L00PER 
COMMON 
1 PCNFGU 
21 FDS 
3ZCDS 
4T4DS 
5 TFHPDS 


/WORDS/ WORD 
/DESIGN/ 

9 JDES ? KDE S 
, IAFTBN, IOCD 
9 NOMAP , NUM MAP 
/ALL1/ 

,PCNCGU,T4GU 
9 PCNFDS » PRF OS 
,PCNCDS9PRCDS 
9 WFBDS 9 DTCODS 
9 CNHPD$» ETHPDS 


,MODE 9 1 N I T 
9 IMCD 9IOSHOC 
9 MAPE OG 9 T OLALL 

9 DUMD1 9 DUWD2 
,ETAFDS9WAFDS 
f ETACDS 9 W ACDS 
, ETABDS 9 W A3CDS 
9 TFHPCF 9 C NHPCF 


9 1 DUMP ilAMTP 9 I GASMXt 
9 I MS HOC * NOZF LT 9 1 TRYS 9 
»ERR{9> 

9 DELFG fDELFN 9 DELSFC » 
9 PRFCF , ETAFCFfWAFCF , 
9 PRCCF 9 ETACCF 9 WACCF t 
9DPC0DS,DTC0CF,ETABCF f 
,ETHPCF,DHHPCF 9 T 2 DS 9 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 




-• o u 


^I F ^ FTL p °S»TFLPCFf CNLPCF »ETLPCF. DHLPCF > T21DS 

I^fnc S ,WF00S » D T0UDS.ETADDS9 WA23DS,0PDUDS.0TDUCF,ETADCF 

8T7DS . WFADS . DTAFDS , ETA ADS 9 WG 6 CDS 9 DPAFOS 9 DTAF CF , E TAACF 


t A 8 


t A9 


9A55 t A25 ,A6 ,A7 

^COMMON * /ALL2/ ? t C VMNOZ . A 8 SAV iA9SAV » A2 8S AV. A29SAV 


»A28 t A29 


IT 1 
2T21 
3T4 
4T55 
3CNF 
6 CNC 
7CNHP 
8 CNLP 
9AM 


*P1 

tP21 

tP4 

tP55 

»PRF 

t PRC 


9 HI 
t H21 
»H4 
* H55 
» ETA F 
t ETAC 


f SI 

» S21 
»S4 
t S55 
t WAFC 
* W ACC 


, ETATHP f DHTCHP,DHTC 
» ETATLP, DHT CLP »OHTF 
» ALTP « STAR tZF 


»T2 
» T3 
» T5 
• BLF 
tWAF 
i WAC 
tBLHP 
9 B LLP 
»PCNF 


»P2 
»P3 
9 P5 
9 BLC 
t WA3 
fETAd 
9 WG5 
i WG5 5 
9ZC 


9 H2 
»H3 
9 H5 
9 BLOU 
9 WG4 


f S 2 
9 S 3 
» S 5 
9 BLOB 
9 FAR 4 


9 OPCOM 9 OUMP 
9 FAR5 ,CS 
9FAR55 f HPEXT 
9 PCNC ,WFB 


S COMMON , /ALL3/ ,PC8LF fPCBLC ,PCBLDU * PC ®LOB, , pCBLHp!pCBLLP 


1XP1 

2XT21 

3T24 

4T28 

5WAD 

6TS28 

7XT55 

8 XWFB 

9T6 

$T 8 


9 XWAF « XWAC f XBLF 
9XP21 9 XH2 1 9 X S2X 

tP24 9 H24 t S24 
9P28 9 H28 v S28 

9 WFO f WG24 f FAR24 . ETAC 
f PS28 9 V28 9 AM28 f TS29 

* XP55 9 XH5 5 f XS55 f XT25 f XP25 


X BLOU 
T23 
T25 
9 T29 


9 XH 3 

9P23 
»P25 
9 P29 


9 XWG55 9 XFAR55 9 XWFO ,XWG24 ,XFAR24 f XXPl 


9 P 6 
t P 8 


COMMON /ALL4/ 
1WG6 9 WFA 

2PS6 9 V 6 

3TS8 9 P SB 

4VA ,FRD 

5FGM 9 FGP 

6MA32 , OPWGC 

7H38 9 P38 

8V39 t AM39 


9 H 6 
9 H 8 

9 WG7 
9 AM 6 
t V 8 
9 V JO 
9 WFT 
StOPW IN 
9 TS3 8 
9 A 39 


9 S 6 

9 T7 

9 S 8 

9 T 9 

9 FAR 7 

» ETAA 

» TS7 

. PS7 

» AM 8 

9 T S9 

9 FGMO 

9 V JM 

9 WGT 

9 FART 

9 WA32DS 

9 A38 

9 PS38 

9T39 

9 B PR I NT 

9 WG37 

9 P S39 

rFFOVF 

9H22 

9S22 


9 DU MS 1 ,OUMS2 
9 H23 ,S23 

fH25 9 5 25 
»H29 9 S29 

rOPDuC 9 BYPASS 9 OUMS 3 
t PS29 9 V29 9 AM 29 

9 XH 25 f XS25 
9 OUMB 
9 S7 
9S9 


9P7 
9P9 

9 DPAFT 
9 V7 
9 PS 9 
9 FGMM 
9 FG 
9 AM38 
f H39 


9 H7 
»H9 

9 V55 
9 AM7 
f V9 
9 FGPD 
9 FN 
9 V38 
# P39 


9 V25 
9AM25 
f AM9 
9 FGPM 
9 S FC 
f T38 
9TS39 

9 CVOWNG 9 FGMWNG 9 FGPWNG 
9 FCOVFN 9 FMNOFNt FNOVFD 
9T50 , P50 


f H50 


SVJW 9 T22 t P22 
COMMON /ALLS/ 

,WA22 tZ1 iPCNI 9 CNI 9 PRI 9 ETAI v WAC I 

2TFFIP 9 CNIP 9 ETATI P 9 OHTC IP 9 DHTI 9 BLIP 9 PCBL IPt PCNIGU* 
' PCNIDS,PRI ° S ,ETAI0S > WAIDS 9 PRICF 9 ETAI CF 9 WAICF , 

^AT P ° S, or IPDS,ETIPDS,TFIPCF,CNIPCF,ETIPCF,DHIPC,= » WAI CDS, 

9PCBLI f BLI 9T22DS 9 W A21 f WG50 v FAR50 9 A 24 

,DUMSPLfFxFN2M ' F XM2CP f AFTFAN,PUNT 9 PCBL !D,P60SAV, 
7AM6DSV,ETAASV,FAR7SV,T4PBL ,T41 .FAN IlSPOGL 
, c ™™t /V0LS/ VFAN ' V INTC,VCOMP,VCOHB f VHPTRB,VIPTRB,VLPTRB,VAFTBN 1 

1 V FOUC 19 VWDUCT 

COMMON /DYN/ I TRA N, T IME9 DT 9 TF 9 JTRAN .NSTEP, TPRI NT, DTPRNT 
COMMON/LOOPPR/KKGC. PRFNEW 9 PRC NEW 
DATA 111/0/ 

0 IMENS ION X ( 1 ) 

EQU ’ W ALENCE (X.IOESI 
LOGiCAL ERRER, CLEAR 
DATA CLEAR/. TRUE./ 

COMMON/ERER/ERRER 
LOGICAL RSTART 
RSTART-.TRUE. 

ERRER*. FALSE. 

I T RAN*0 
JTRAN*0 
NSTEP * 0 
TIME * 0.0 

tprint « 0.0 
DTPRNT * 0.0 

IF C .NOT. CLEAR I CALL ENGBAL 
CLEAR* .FALSE. 

DO I J* 1 9 415 
X( J)*0. 

?!L£ R ! , I RARV VALUES F0R INTERMEDIATE spool oesign parameters to 

AVOID ERROR WHEN RUNNING A DUMMYSPOOL ENGINE 
PR IDS* 1. 5 
ETAIDS*1.0 
PCN IDS*100. 


12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 


76 




86 

l I0S-.75 

87 

PCNCDS-100. 

68 

IF l III.EQ.O) KKG0*0 

89 

IF I RSTART ) CALL CONOUTU J 

90 

P60SAV-1. 

91 

AM6DS V»l« 

92 

ETAASV-1. 

93 

FAR7SV»l. 

94 

CALL ENGBAL 

95 

STOP 

96 

ENO 



SIBFTC GUESS 

FUNCTION 
IF ( M «EQ« 
IF (M*EQ« 
IF (M*EQ< 
IF ( M*EQ< 
IF ( M*EQ< 
IF i M*EQ< 
IF (M.EQ. 
IF t M *EQ 
IF l M*EQ 
IF (M.EQ 
RETURN 
END 


GUESS (HfTfTDfFtPO»W» WDt 0»DDf VD) 

,0> GUESS*VD*( (T/TOl** i*60>*( ( DO/D l**0»30 > 

,1) GUESS*VD*nP/PDl**l*801*(<DD/Dl**0.331 

,2) GUESS*VD*( CM/WD1**0.331*< ( DD/D 1**1 *001 
►31 GUESS-VD*UW/WD1**0*001*( ( P/PD 1**0*501 
>41 GUESS «VD*UW/WD1**0.00>*(CP/PD>**0.501 
►51 GUESS*VD*((T/TD1**1*1>*( (DD/D1***7> 

► 61 GUE SS*VD* ( (P /PD1** 1.001*1 ( D/DD 1**0*251 

► 71 GUE S$*VD* ( (P/P 01**0*621*1 (D/DO 1**0*311 

,81 GUES$«VD*((T/TD)**1.21*0D/D 

,9) GUESS*VD*P/PD*C (D/DD1**1*51 


1 

2 

3 

4 

5 

6 
7 
6 
9 

10 

11 

12 

13 


SIBFTC INDUMY 

SUBROUTINE INOUMY ICNI 

* & IT //> III/ vl 1 Cl 


.7 T .U&r 1 


1 


2 


1NCNX tNPTX ( 151 

D I HENS ION MACARU51 »XCNXX( 151 

DATA XCNXX/*001 f * l»*2i #3,*5,*8tl 

DATA HACAR/5* > 4*5 f 4* t3*5t 3* t2*5t 

IF ( I DES*NE • 1 > GO TO i 

W A ID$*WAC I 

CN IDS*CN I 

ZI*2*/3.5 

NC NX* 1 5 

00 2 I*l» 15 

NPTX( I 1*15 

CNXXC Il-XCNXXI I1*CNIDS 


• , 1.5 t 2*0f 3*0,4*0t5*0,6.»7*t9. 

2* f 1*5» 1* t*8 # *6t*4,*25t*l» *05/ 


/ 


DO 2 J*1 1 15 

PRXX ( I , J 1 -FLOAT (J *3 1/4* 

HACXX ( J» I )*HACAR( I >*( • 993*-»00 1*FU0 AT I J J ►♦HAI OS 

RETURN 

END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


SIBFTC MATRIX 

SUBROUTINE MATRIX (E,V.A,N1 

DIMENSION E(9t 91 » V(91 »AI 9» »PI VllOl »T(9tl01 
NN-N+1 
NM-N-1 
DO 1 I* It N 
T ( I,NN1*A( II 
DO 1 J-ltN 
1 T« I . J1*E( It J> 


DO 7 I* It N 
TEMP-0* 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 






77 



00 2 J«I,N 

IF (TEMP.GT.ABSITU, I)M GO TO 2 
TEMP-A&S<T< J f I > > 

IPIV*J 

2 CONTINUE 
IP1*I + 1 

DO 3 J* I PI , NN 

3 P I V ( J )*T( IPlVtJl/TI IPlVyl ) 

I FROM*N 

ITO-N 

4 IF UFR0M*EQ.IPIV) GO TO 6 
RM*~T ( I FROM, I > 

00 5 J* IP 1 r NN 

5 Tl ITOt JJ*TUFROM, J>+RM*PIV( J ) 

1 TO* I TO— 1 

6 I FROM* I FROM— 1 

IF ( IFROM.GE.I ) GO TO 4 
DO 7 J*IP 1 ,NN 

7 TC I , J )*P I V { J ) 

DO 8 1*1, NM 

J*NN-I 

K*N-I 

DO 8 L*J,N 

8 T ( K, NN)*T ( K ,NN )-T (K,L > *T ( L ,NN ) 

DO 9 1*1, N 

9 Vm*TU,NN> 

RETURN 

END 


11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 


$ IBFTC OUTPUT 

SUBROUTINE OUTPUT 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES ,JDES ,KDES ,MOOE ,INIT ,IDUHP , IAMTP ,IGASMX, 
2IDBURN, IAFTBN, IDCO , IMCD , I DSHOC t IMSHOC, NOZFLT , ITRYS , 
3L00PER, NOMAP , NUM MAP, MAPEDG, TOLALL ,ERR(9> 

COMMON /ALL 1/ 


lPCNFGUf PCNCGUt T4GU ,DUND1 

>DUPD2 ,DELFG 

tOELFN 

, DELSFC 

2ZFDS 

, PCNFOS , PRF OS , ETAFDS, WAFDS , PRFCF 

, ET AFCF 

, W AFCF 

3ZC0S 

,PCNCDS, PRCDS , ETACDS, WACDS ,PRCCF 

tETACCF 

>WACCF 

4T4DS 

, WFBDS 

, OTC 00$ , ETABOS, HA3CDS , DPCOOS, OTCOCF 

, ETABCF 

5TFHPDS,CNHPDS,ETH POS , TFHPCF ,C NHPCF, ETHPCF, OHHPCF 

, T20S 

6TFLPDS 

1 , CNLPDS, ETC POS ,TFL PCF jCNLPCF, ETLPCF, DHLP CF 

, T21DS 

7T24DS 

t HFDOS 

* OTO UDS , ET ADDS , HA 230$ f DPOUDS* DTOUCF 

t ETADCF 

8T70S 

« WFAOS 

,DTA FDS r ETA AOS , HG6CDS * DPAFOSr DTAFCF 

, ETAACF 

9A55 

• A25 

» A6 ,A7 

i A8 ,A9 

, A28 

, A 29 

SPS55 

i AH55 

i CVDNOZ tCVHNOZ t A8SAV ,A9SAV 

, A2 8$ A V 

» A29SA V 

COMMON 

1 /ALL2/ 




IT 1 

*P1 

» HI ,S1 

»T2 ,P2 

,H2 

f $2 

2T 2 1 

• P21 

» H21 ,S21 

»T 3 , P3 

,H3 

, S 3 

3T4 

• P4 

»H4 , S4 

r T5 ,P5 

«H5 

, S 5 

4T55 

t P55 

»H55 ,S55 

» BIF » BLC 

, BLDU 

, BLOB 

5CNF 

, PRF 

» ETA F iWAFC 

iHAF t HA3 

, WG4 

,FAR4 

6CNC 

, PRC 

, ETAC ,macc 

•HAC iETAB 

, DPCQM 

, DUMP 

7CNHP 

, ETATHP 

t OHTCHP » DHTC 

• BLHP ,HG5 

, FAR5 

,CS 

8CNLP 

, ET ATLP 

» DHTCLPtDHTF 

• BLIP ,HG55 

, FAR55 

tHPEXT 

9AM 

» ALT P 

* ETAR ,ZF 

» PCNF ,ZC 

, PCNC 

,WFB 

STFFHP 

, TFFLP 

i PCBLF tPCBLC 

* PCBLDU. PCBLOB 

, PC BLHP 

,P CBLLP 

COMMON 

/ALL3/ 





IXPi 

, XWAF 

tXWAC tXBLF 

• XBLDU t XH3 

, DU MSI 

, DUHS2 

2XT21 

,XP2 1 

• XH2 1 >XS21 

»T23 i P23 

,H23 

, S23 

3T24 

»P24 

>H2A > S24 

• T25 t P25 

»H25 

, S25 

4T28 

,P28 

» H28 ,S28 

»T29 ,P29 

, H29 

, S 29 

5WA0 

, WFD 

> HG2 4 ,FAR24 

• ETAO t DP DUC 

i BYPASS 

, DUMS3 

6TS28 

t PS28 

» V28 ,AM28 

» T S29 « PS29 

, V29 

r A M2 9 

7XT55 

, XP55 

t XH5 5 t XS55 

*XT25 ,XP25 

, XH 25 

v X S2 5 

8XWFB 

, XWG55 

t XFAR55 1 XWFD 

•XWG24 f XFAR24 

tXXPl , 

r DUMB 

9T6 

*P6 

t H6 t S6 

i T7 ,P7 

, H7 

,S7 

ST8 

>P8 

»H8 ,S8 

»T9 ,P9 

»H9 , 

i$9 
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15 
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17 

18 
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22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 
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(N PO 


29 


1 


26 

25 


27 


4 


5 


COMMON /ALL4/ 

1WG6 ,WF A tWG7 

, V6 , AM6 

,PS8 tV8 
f FRO fVJO 
» FGP t WFT 


2PS6 

3TS8 

4VA 

5FGM 

6WA32 

7H38 

8V 39 


t F AR 7 
,TS7 
t AMS 
,FGMO 
9 WGT 


,TS39 9 

„ BUJ1 9CVOWNG,FGMWNG,FGPWNG9 
9 FFOVFNt FCOVFNfFMNOFNtFNOVFOi 

f S2 2 »T50 t P50 f H50 


9 ETAA t DPAFT ,V55 ,V25 f 

, PS7 9 V7 9AM7 # AM25 9 

,TS9 9 PS9 rV9 tAM9 9 

,VJH 9FGNM 9 FGPO 9FGPM 9 

, FART # FG 9FN 9SFC » 

9DPWGOS 9 DPW ING ,WA32DS 9 A38 f AM38 »V38 tT38 9 

,P38 9TS38 »PS38 t T39 ,H39 f P39 

9AM39 f A39 ,BPR INT , WG37 

9F NW I NG t FNMA IN9 FW0VFN t PS39 
$VJW 9T22 »P22 »H22 

1 SST M wi^'.Zt tPCNI tCNI .PRI .ETA! .-ACI . 

2TFFIP CmP I ETATIP.OHTCIP.DHTI .BLI P ^^IP.PCNIGU. 

• n c origins. PRI DS • ETAIDS, MAIDS fPRlCF tETAlCF,WAICr 9 

atfipos'.cnipds.etipos.tfipcf.cnipcf.etipcf.ohipcf.maicos, 

cyw PCBLI , BLI f T22DS ,WA21 ,WG50 9FAR50 9A24 9 

6AH23 !duHSPL,FXFN 2H,FXM2CP, AFTFAN, PUNT ’ ^?^iP ,P6DSAV, 
7AM60SV.ETAASV.FAR7SW-T4PBL ,T41 .FAN , I SPOOL 

r nHHflN /DYN/ ITRAN.TIME.DT.TF.JTRAN.NSTEP.TPRINT.OTPRNT 

01 HENS ION N « 5 . 4 » . ANS 1 1 80 > , ANS2 ( 80 » , ANS3 ( 80 > , ANS4 ( 80» . r ANS5C 
EQUIVALENCE ( ANSI ,PCNFGU > * (ANS2,T1) t ( ANS3 t XP 1) ,(ANS4,WG6i 
EQUIVALENCE (ANS5,S50> 

LOGICAL FXFN2M9 FXM2CP9 AFTFAN 9 OUMSPL*F AN 
OATA AWORDI9 AW0R02/6H0UTPUT, 6HC0MM0N/ 

DATA (WU,n.l = l,*>/6HSUBS0N f 6H|C C-D.6H N0Z2L.6HE / 

DATA (MC2. I > , I “ 1. 4> /6H SHOCK f 6HI NS IOE, 6H C-D N .6H0ZZ LE ' 

DATA !n!3,IWI«1.*J/6HSH0CK . 6H0UTSID.6HE C-D 

niTA (U14. [),[»1,4J/6HSUBS0N.6HIC C0N.6HVERG. .6HN0ZZLE/ 

D^i (SIsIh.UiIaI/BhIoNIC « 6HC0NVER. 6HGENT N.6H0ZZLE t 
TPR INT*TPR INT ♦OTPRNT 
I F ( ITRAN. E Q. 1 ) WRITE(6,29) TIME 
FORMAT ( 1HB * 20X7 H TIME*,F7.4) 

WORD* AWORO 1 

IF ( IDBURN.GT.Q) GO TO 2 
IF ( IAFTBN.GT.O) GO TO i 
WRITE (6,7) WORD 9 AM, ALTP, T4, ET AR 

WRITE (6,8) WORD, AM, ALTP , T4 , T7 ,ETAR 

WRITE (6,9) WORD, AM, ALTP9T4,T24,ETAR 
IF (FXFN2M) WRITE (6,17) 

IF (FXM2CP) WRITE (6,18) 

I F (FAN) GO TO 25 
WR I TE ( 6, 26 > ISPOn* 

FORMAT (1H0, 14, ioH SPOOL TURBOJET) 

IM T .So”fxFN2M.ANO.C.NOT.FXH2CP!.AND.(.NOT.DUHSPL J » NRITEC6.19. 

IF ( DUMSPL ) WRITE (6,23) 

IF (PCBLID.EQ.O.) WRITE (6,20) 

IF (PCBLID.EQ.O.. AND. AFTFAN) WRITE (6,21) 

IF ( PCBLID.NE. 0*. AND. AFTFAN) WRITE (6t22) 

CALL CONOUT (2) . , _ er c Pf 

WRITE (6,10) (W( IMSHOC,I)»I ai i»6),FG,FN9SFC 

IF ( IGASMX.GT.O.OR ..NOT.FAN) GO TO 4 
WRITE (6,11) ( W( IDSHOC, I ) , 1=1 >6) 

WRITE (6,12) LOOPER 
IF ( IDES.NE.i) GO TO 5 

WMTE A (6^13) W0RD,ZF,PCNFfZItPCNI,ZC,PCNCtT4,M00E 

WRITE (6,14) 

WRITE (6,15) ( ANS 1(1), 1*1* 80) 


WRITE (6,14) 

WRITE (6,15) ( ANS 2(1 ) » 1*1 


>1,80) 


WRITE (6,14) 

WRITE (6,15) ( ANS3U ) , 1*1 9 80) 
WRITE (6,14) 

WRITE (6,15) ( ANS4I I ) , l *1 t 80) 
WRITE (6,14) 

WRITE (6,15) ( ANS 5( I ) 1 1* 1 , 55) 
WRITE (6,14) 

WRITE (6,16) 

IF (1DES.EQ.D GO TO 6 
CONTINUE 
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6 

C 

C 

c 

7 

8 
9 


10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


A 8 *A 8 SAV 

A9«A9SAV 

A28-A28SAV 

A29-A29SAV 

IF ( inUNf>*NE.2l GO TO 6 
WRITE ( 6» 16 I 
CALL SYG ( 2 ) 

CALL ENGBAL 
RETURN 


FORMAT 
1 v 25X7H 
FORMAT 
It 5X7H 
FORMAT 
It 5X7H 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

1R TURBINES! 

FORMAT (74H0MI00LE ANO COMPRESSOR SPOOLS ARE ATTACHED , USE MIDDLE 
1 AND OUTER TURBINES! 

FORMAT (19H0THREE SPOOL ENGINE) 

FORMAT C 21 HONG AIRFLOW INTO WING) 

FORMAT (1H*22X,14H, AFT-TURBOFAN) 

FORMAT U4H0 AF T- TURBOFAN ) 

FORMAT ( 22H0MI DDL E SPOOL IS OUMMY) 

END 


C1HB,A6, 14X7H 
ETAR* f F7« 4) 

< lHBf A 6 9 14X7H 
T7« f F8.2f5X7H 
( 1HB« A6t 14X7H 
T24* t F8.2,5X7H 


AM*f F7#3 f 6X7H 


ALTP* fF7« 0 f 6X7H 
ALT P* »F 7* Of 6X7H 
ALTP* fF 7*0 9 6X7H 


T4* f F 8.2 
T 4* f F 8 • 2 
T4*,F8-2 


AM*,F7.3 f 6x7H 
ETAR* t F7#4 ) 

AM* f F7«3t6X7H 

ETAR*,F7.4) 

(6H0MAIN 9 4A6 ,9X3HFG* f F9» 2f 18X3HFN* f F 9* 2* 18X4H$FC*f F8«5 ) 

( 6 H DUCT 9 4A6) 

( 16H0C0NVERGE0 AFTERf I 4 96 H LOOPS, /,1H1) 

(1H , A6 f 9X ,7E 15 *6, 1 4) 

( 1H ) 

11H 9 BE 15* 6) 

I 1H1 ) 

( 65H0FAN AND MIDDLE SPOOL ARE ATTACHED t USE INNER AND nilTF 
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tIBFTC PARABO 

SUBROUTINE PARABO ( X, Y 9 XD 9 YANS ) 

DIMENSION X I 3 ) 9 Y( 3) 

A* 

IX ( 

B*( (XI 1>**2-X( 2>**2>*(Y( 1 >-Y C 3 ) )- 1 X ( 1 > **2-X { 3 ) **2) * I Y< 11-YI2) > )/(( 
IX 1 D-XC2) >*(X< 1)-X<3>> *( X<2>-X(3>) > 

D-(Y(i)*X(2)**2-Y<2)*X(l)*»2-B*X(2)4X(l)4(Xl2)-X(l)))/(X(2)*42-X(l 


al)-x( 3 >)*fx( 3 i-x( 2 )n 3>> " <X< l> " XI3n * <VU> " Y<2>) )/(<xcl> * xl2n,>< 


YANS* I A*XD+B )*XD>D 

RETURN 

END 
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AIBFTC PERF 

SUBROUTINE PERF 
COMMON /WORDS/ WORD 
COMMON /OESIGN/ 

1IDES 9 JDES 9 KDE S ,MODE tlNIT , IDUMP , IAMT P » IGA SMX, 
21 DBURNf IAFTBN, I DC D , IMCD 9 IDSHOC , I MSHOC , NOZF LT , I TR YS , 
3L00PER 9 NOMAP 9 NUMMAPfMAPEDGfTOLALL ,ERR(9) 

COMMON /ALL 1/ 

1 PCNFGU 9 PCNCGU,T 4 GU ,DUMD 1 ,DUMD2 ,DELFG , DE LF N 9 DELSFC 9 
2ZFDS fPCNFDS, PRFDS 9 ETAFDS, WAFDS ,PRFCF , ETAFCF, WAFCF , 
3ZCDS , PCNCDS 9 PRCOS 9 ETACDS, WACDS 9 PRCCF 9 ET ACCF ,W ACCF , 
4T4DS fHFBDS 9 DTCOOS , ETABDS, WA3CDS » DPCODS, DTCOCF,ETABCF, 
5TFHPDS 9 CNHPDSt ETHPOS t TFHPCF f CNHPCF f ETHPCF 9 DHHPCF 9 T2DS , 
6TFLPDS9CNLPDS,ETLP0S,TFLPCF, CNLPCF, ETLPCF,0HLPCF,T21DS 9 
7T2 4DS 9 WFDDS , DTDUDS t ETADDS, WA23DS 9 DPDUDS, DTDUCF , ETADCF, 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
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8T7DS 

t WF ADS .DTAFOS 

, ETA ADS 

9 WG 6 CDS 

9 DPAFDS 

. DT AFCF 

.ETAACF 

9A55 

» A25 > Afe 

t A7 

9 A 8 

t A9 

9 A2 8 

.A29 

SPS55 

t AM55 .CVDNOZ 

tC VMNOZ 

9 A 8 SAV 

,A9SAV 

9 A28S AV 

9 A29SA V 

COMMON 

/ALL2/ 






IT 1 

,P1 .HI 

tSl 

9 T 2 

tP2 

9 H 2 

» S2 

2T21 

.P21 . H21 

9 S21 

9 T 3 

9P3 

9H3 

9 S3 

3T4 

,P4 ,H4 

# S4 

* T5 

»P5 

f H5 

»S5 

4T55 

,P55 . H55 

9 S55 

9 BLF 

» BLC 

9 BLDU 

.BLOB 

5CNF 

. PRF .ETAF 

t WAFC 

• WAF 

, WA3 

9 WG4 

.FAR4 

6 CNC 

. PRC . ETAC 

t W ACC 

9 W AC 

,ETAB 

9 OPCOM 

.DUMP 

7CNHP 

. ETATHP. DHTCHP 

tDHTC 

f BLHP 

9 WG5 

9 FAR5 

.CS 

8 CNLP 

1 ETATLP. OHTCLP 

,DHTF 

9 BLLP 

,WG55 

9 FAR5 5 

9 HPEXT 

9AM 

. ALTP . ETAR 

tZP 

9 PCNF 

tZC 

. PC NC 

, WFB 

STFFHP 

.TFFLP . PCBLF 

t PCBLC 

9 PC 8 LDL 

,PCBL08 

9 PCBLHP 

. PCBLL P 

COMMON 

/ALL3/ 






1XP1 

. XWAF . XWAC 

9 XBLF 

9 XBLDU 

9 XH3 

9 DU MSI 

r DUMS2 

2XT21 

,XP21 . XH2 1 

t XS2 1 

tT23 

9 P23 

9 H23 

9 S 23 

3T24 

,P24 ,H24 

t S24 

9T25 

» P25 

9 H25 

9 S 25 

4T28 

»P28 . H28 

9 S28 

tT2S 

t P29 

9 H29 

9 S29 

5WAD 

,WFD ,WG24 

9 F AR24 

9 etad 

,DPDUC 

.BYPASS 

9 DUMS3 

6TS28 

,PS28 . V28 

9 AM28 

f TS29 

f PS29 

. V29 

. A M2 9 

7XT55 

,XP55 . XH5 5 

f X S55 

, XT25 

,XP25 

. XH25 

.XS25 

8 XWFB 

. XHGS5 . XFAR55 

i 9 XWFD 

9 X WG24 

f XFAR24 # XXPl 

. DUM B 

9T6 

. P 6 . H 6 

9 S 6 

♦ T7 

tP7 

» H7 

9 S7 

ST 8 

t P 8 » H 8 

# S 8 

tT9 

tP9 

rH9 

.S9 

COMMON /ALL4/ 






1WG6 

.UFA . HG7 

f FAR7 

9 ETAA 

,DPAFT 

9V55 

. V25 

2PS6 

. V 6 . AM 6 

fT S7 

f P S7 

tV7 

9 AM7 

9 A M2 5 

3TS 8 

,PS 8 ,V 8 

t AM 8 

9 T S9 

9 PS9 

9 V9 

9 AM9 

4VA 

1 FRO .VJD 

, FGMD 

f V JM 

,FGMM 

9 FGPD 

9 FGPM 

5FGM 

,FGP . WFT 

9 WGT 

9 FART 

9 FG 

»FN 

9 SFC 

6WA32 

.0PWG0S.0PHING.MA32DS.A38 

9 AM38 

. V38 

.T38 

7H38 

»P38 , TS38 

, PS38 

t T 39 

f H39 

v P39 

9 T S39 

8V39 

• AM39 . A39 

, SPRINT »WG37 

9 CVOWNG 9 FGMW NGfFGPWNG 

9FNW [NG» FNMA IN. FWO VFN » PS39 

.FFOVFNiFCOVFNjFMNOFNiFNOVFD, 

SVJW 

»T22 .P 22 

9 H 22 

9 S 22 

f T50 

» P50 

9 H50 

COMMON /ALLS/ 






IS 50 

. WA22 >21 

9 PCN I 

9 C N I 

9 PR I 

, ETAI 

f WACI 

2TFFIP 

.CNIP . ETA7IP.DHTCIP.DHTI 

f BLIP 

,PC BLIP 9 PCNIGU 

3Z IDS 

.PCNIOS.PRI OS 

. ETAIDS. WAIOS 

9 PR ICF 

9 ET AICF 9 WAICF 

4TF IPOS tCNIPDS* ET I PDSi TFIPCF.CN IPCF 9 ET I PCF 9 DH IPCF . WAICD5 

5WAI 

. PCBLI « BLI 

9 T 22DS 

. WA21 

»WG50 

. FAR50 

9 A 24 

6AM23 

.OUMSPL.FXF N2M.FXM2CP. AF7FAN.PUNT 

t PCBL 10 9 P6DSA V 

7AM6DSV.ETAASV.FAR7SV.TAPBL 

9 T 41 

.FAN 

• IS POOL 


COMMON /DYN/ ITRAN»TIMEi DT»TF 9 JTRAN f NSTEP»TPRI NT « DTPRNT 

COMMON/UNITS/SI 

LOGICAL SI 

LOGICAL AFTFANt OUMSPL#FAN 
DATA AW0RD/6H PERF/ 

WORD* AWORD 
IF (SI) GO TO 100 
G*32* 174049 
CAP $F = 2116*2 17 0 
GO TO 101 

100 G-1.0 
CAPSF-1.0 

101 CONTINUE 
WFT-WFB+WFO+WFA 
WAT*WAF-BLOB 

IF (AFTFAN) WAT-WAT+WAl 

WGT*WAT+WFT 

FART-WFT/WAT 

VA* AM*CS 

FRD*VA*WAF/G 

IF ( AFTFAN I FRD*VA*( WAF+WA l > /G 

V J M*C VHNOZ *V9 

FGMM* V JM*WG7/G 

FGPM*CAPSF*(PS9-P 1>*A9 

IF (IGASMX*GT.O*OR**NOT*FAN> GO TO 1 

VJD=CVDN0Z*V29 

FGMD* V JD*WG24/G 

FGPD*CAPSF* ( PS29- Pi) *A29 

V JW=0. 


15 

16 
17 
IB 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 
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37 

38 
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41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
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63 

64 

65 
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66 

69 
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u 


2 


FGMWNG*0* 

FGPWNG*0* 

fghing*o. 

FNWING*0. 

IF (PCBLID*EQ* 0 • ) GO TO 2 
V J W*C VDWNG*V39 
FGMWNG* VJW*WG37/G 
FGPHNG*CAPSF*( PS39-Pi)*A39 
FGWI NG*FGHMNG+FGP WNG 
FNW!NG*FGWING-VA*WA32/G 
FGH*FGMM+FGMO+FGMWNG 
FGP*FGPM+FGPD*FGPWNG 

FNMA IN*( FGMM+FGMD+FGPM+FGPO)- VA* ( WAF-WA32) /6 

IF (AFTFAN> FNMAI N*( FGMH+FGHO+FGPM+FGPD)— VA* ( WAF+WAI— MA32) /G 

FG-FGM+FGP 

FN*FG-FRD 

SFC*3600.*WFT/FN 

FG*DELFG*FG 

FN*DELFN*FN 

SFC*DELSFC*$FC 

FFAN=FGMD+FGPD-VA*WAD/G 

FCORE*FNNA IN-FFAN 

FFOVFN-FFAN/FN 

FCOVFN*FCORE/FN 

FWOVFN-FNWING/FN 

FMNOFN*FNMAIN/FN 

IF ( I DES*EQ* l > FDE$*FN 

FNOVFO*FN/FDES 

IF < *NOT*DUM$PL ) GO TO 3 

PCNI-l.C 

CNI-O. 

IF < ITRAN* EQ* 1* AND *TIME*LT *TPR I NT) CALL ENGBAL 

CALL OUTPUT 

CALL ERROR 

RETURN 

ENO 
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91 

92 

93 
9* 

95 

96 

97 

98 

99 
100 
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103 
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106 

107 
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111 
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116 
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123 


SIBFTC PROCOM 

SUBROUTINE PROCOM ( FARX ,T EX,C SEX , AKEX, CPEX ,REX ,PHI ,HEX > 

C OMMON/UNI TS/S l 
LOGICAL SI 

C IF SI UNITS ARE USED, CONVERT TEX TO DEGREES RANKINE 

IF ISI) TEX*TEX*9*0/5*0 
IF ( FARX*LE* 0*067 623 ) GO TO 1 
FARX*0. 067623 

1 IF ( TEX«GE *300* ) GO TO 2 
TEX*300* 

2 IF ( T E X • L E • 400 0 • ) GO TO 3 
TEX*4000. 

3 IF <FARX.GE*0.0> GO TO 4 
FARX*0*0 
AIR PATH 

CPA»( < ( (U 1. 01 155 AOE-25*TEX-l.4526770E-21)*TEX*7.6215767E-l8> ♦TEX- 
11* 5128259E-14>*TE X-6* 7178376E- 12 >♦ TEX+6* 5519486E-08 >*TEX-5 • 1536879 
2E-05) ♦TEX*2*5020051E-01 

HEA* IIUMI 1* 2644425E-264TEX- 2 *0752522E— 22 )*TE X* 1* 2702630E- 18 ) *TEX 
1- 3*0256518E-15 ) ♦TEX- 1 *6794594E- 12 )4TEX+2*1 83 9826E~ 08) *TEX-2« 576844 
20E-05J4TEX+2* 5020 C51E-01) PTE X-1.7558886E+00 

SEA*+2.5020051E-014AL0G(TEX)M (H t (1 *4450767 E-26*TEX-2«4211288E-22 
1 ) ♦TEX+1* 5243 153 E- 18) 4TEX-3* 78 20648E-15) *TEX-2* 2392790E-12 > *TEX+3*2 
2759743E-08 )*TE X-5 • 1576879E-05 ) *TEX+4« 5 43 23 00 E— 02 
IF ( FARX*LE*0* 0 ) GO TO 5 
C FUEL/AIR PATH 

CPF* (((<(( 7*26787 10E-25*TEX-1 • 3335668E-20) *TEX*1 *02129 13E- 16) ♦TEX- 
14. 205 1104E-13) ♦TEX+9.9686793E- 10 I4TEX-1* 3771 901E-0 6) *TEX+ 1*2258630 
2E-03 ) 4TEX+7 * 38 1 66 38E— 02 


HEF* I < < { Ul 9* 0848 388E-26*TEX- 1*9050949E-21 )*TEX* 1. 7021525E- 17) *TE 
1-8*41 0220 8 E- 14) 4T EX+2.492 1698E— 10) *TEX-4*5906332E-07) *TEX+6* 1293 1 
20E-04 >*TEX-*7* 3 816 638E-02 ) ♦TEX+3.0581530E+01 
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SEF**7 .381663BE-02*ALOG< TEXJ + i 1C (« 1 1 *038Z670E“ 25*T EX-2« 222 61 iBE-21 
1>*TEX*2*0425826E- 17) *TEX-1 *0512776E- 13) *TE X+3. 322B928E-10) *TEX-6*8 
28595 05E-07 ) *TE X+l .2258630E-031 *TE X+6.483398E-0 l 
5 CPEX* ( CPA+F ARX*CP FI/(1«*FARX> 

HEX*( HEA+FARX*HEF )/i l.+FARXI 
PHI*C SEA+FARX*SEF >/< l.+FARXJ 
AMW*2 8«97- *946 186*FARX 
R EX*1 • 9 863 75 /AM W 
AKEX*CPEX/ ( CPEX-REX ) 

CSEX*SQRT( AKEX*REX*TEX*25031.37> 

IF (SI > GO TO 100 
GO TO 101 

100 CP EX*CPEX*4185* 7666 
HEX»HEX*2325*4259 
PH I*PHI*4 185# 7666 
REX*REX*4105* 7666 
CSEX«CSEX*.3048 

TE X*TEX*5« 0/9* 0 

101 CONTINUE 
RETURN 
END 
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$IBFTC PUTIN 

SUBROUTINE PUTIN 


COMMON 

/WOROS/ WORD 



COMMON 

/DESIGN/ 



1IDES 

i JOES iKDES 

, MOOE 

9 1 N IT 

2I0BURN 

IAFTBN.IOCO 

t I MCO 

, IOSHOC 

3L00PER 

, NOMAP , NUMKAP 

t MAPEOG 

f TOLALL 

COMMON 

/ALL 1/ 



1 PCNFGU 

tPCNCGU. T4GU 

9 DUMD1 

f 0UMD2 

2ZFDS 

tPCNFDS. PRFOS 

9 ETAFDS 

9 MAFDS 

3ZC0S 

.PCNCOS.PRCOS 

,ETACOS 

, MACDS 

4T40S 

»MFBDS » DTCOOS 

9 ETABOS 

9 M A3C0S 

5TFHPDS 

.CNHPOS. ETHPDS 

,TFHPCF 

t CNHPCF 

6TFLP0S 

.CNLPOS.ETL pds 

,TFLPCF 

9 CNLPCF 

7T240S 

iUFDDS t OTDUOS 

9 ETADOS 

9 WA230S 

8T7DS 

.UFAOS .OTAFOS 

, ETAAOS 

9 WG6C0S 

9A55 

,A25 i A 6 

t A7 

9 A8 

IPS 55 

• AM55 .CVDNOZ 

,CVMNOZ 

9 A 8 SAV 

COMMON 

/ALL2/ 



IT 1 

,P1 .HI 

»S1 

• T2 

2 T 21 

. P21 »H21 

r S21 

» T3 

3T4 

,P4 .H4 

»S4 

t T5 

4T55 

,P55 » H55 

, S 55 

9 BLF 

5CNF 

, PRF . ETAF 

9 WAFC 

f WAF 

6 CNC 

. PRC .ETAC 

9 W ACC 

9 MAC 

7CNHP 

.ETATHP.OHTCHP 

v DHTC 

9 BLHP 

8 CNLP 

.ETATLP. DHT CLP 

• DHTF 

9 BLLP 

9AM 

, ALTP .ETAR 

tZF 

9 PCNF 

ITFFHP 

.TFFLP . PCBLF 

9 PCBLC 

9 PCBLDU 

COMMON /ALL3/ 



1XP1 

.XHAF .XHAC 

9 XBLF 

9 X 6 LOU 

2XT21 

,XP21 • XH2 1 

tXS 21 

9123 

3T24 

,P24 »H24 

9 S24 

9 T25 

4T28 

. P28 . H28 

9 $28 

9 T 2 S 

5WAD 

. WFO . WG24 

9 FAR24 

9 ETAD 

6TS28 

. PS28 . V28 

t A M2 8 

t T S29 

7XT55 

,XP55 . XH5 5 

t X S55 

9 XT 25 

8 XWFB 

.XWG55 . XFAR55 tXMFD 

t XMG24 

9T6 

,P 6 ,H 6 

9 S 6 

t T7 

IT 8 

,P 8 . H 8 

9 S 8 

t T9 

COMMON /ALL4/ 



IMG 6 

.UFA *UG7 

9 FAR 7 

,E TAA 

2PS6 

, V 6 . AM 6 

9 T S7 

9 PS7 

3TS8 

,PS 8 » V 8 

» AMS 

, TS9 

4VA 

, FRO . VJD 

f FGMD 

, V JM 

5FGM 

»FGP . MFT 

9 MGT 

9 FART 

6WA32 

f OPMGDS»DPW ING 9 WA32DS v A3B 


1 

2 

3 

I DUMP tIAMTP » IGASHXf * 

IMSHOCtNOZFLT, ITRYS t 5 

ERR(9> 6 


OELFG .DELFN 

,DELSFC9 

8 

PRFCF .ETAFCF 

9 M AFCF , 

9 

PRCCF .ETACCF 

9 MACCF 9 

10 

DPCODS.OTCOCF 

9 ETABCF 9 

11 

ETHPCF. OHHPCF 

9T2DS 9 

12 

ETLPCF.DHLPCF 

9 T 2 IDS 9 

13 

DPDUDS.OTDUCF 

,ETA0CF9 

14 

OPAFDS.OTAFCF 

9 ETAACF 9 

15 

A9 » A28 

9 A 29 9 

16 

(A9S AV * A28SAV 

9 A29SAV 

17 



18 

(P2 . H2 

, S2 9 

19 

»P3 »H3 

t S3 9 

20 

P5 . H5 

9S5 9 

21 

iBLC » BLDU 

v BLOB 9 

22 

MA3 . WG4 

9 FAR 4 9 

23 

,ETAB .OPCOM 

, DUMP 9 

24 

iHG5 . FAR5 

,CS 9 

25 

,MG55 .FAR55 

9 HPEXT 9 

26 

,ZC » PCNC 

»MFB 9 

27 

(PCBLOB.PCBLHP 

f PC8LLP 

28 

29 

,XH3 . DU MSI 

9 DUMS2 9 

30 

»P23 tH23 

9 S23 9 

31 

,P25 • H25 

9S25 9 

32 

,P29 »H29 

9 S29 9 

33 

.OPDUC . BVPASS 

» 9 DUMS3 9 

34 

,PS29 . V29 

, AM29 9 

35 

»XP25 . XH25 

, XS25 9 

36 

.XFAR24.XXP1 

9 DUMB 9 

37 

,P7 »H7 

,S7 9 

38 

,P9 • H9 

,S9 

39 



40 

.OPAFT . V55 

9 V25 9 

41 

»V7 . AM7 

9 A M2 5 9 

42 

. PS9 . V9 

f AM9 9 

43 

.FGMM . FGPO 

9 FGPM 9 

44 

,FG »FN 

f SFC 9 

45 

t AM38 . V38 

9 T 30 9 

46 




7H38 ,P38 , TS3 8 ,PS38 ,T39 ,H39 ,P39 ,T539 , 

8V39 ,AM39 ,A39 .SPRINT, HG37 ,CVDMNG,FGMWNG,FGPHNG, 

9FNMING, FNMA IN, FHOVFN »PS39 , FFOVFN, FCOVFN.FMNOFN, FNOVFO , 

*VJH ,T22 ,P22 ,H22 ,S22 ,T50 ,P50 ,H50 

COMMON /ALL5/ 

!S50 , WA22 ,ZI ,PCNI ,CNI ,PRI , ETAI ,MACI , 

2TFFIP .CNIP , ETATIP.OHTCIP.OHTI .BLIP , PCBL IP.PCNIGU, 

3ZI0S .PCNIOS.PRI OS , ETA IDS, WAIDS .PRICF .ETAICF.MAICF , 

4TFIPDS,CNIP0S,ETIPDS,TFIPCF,CNIPCF,ETIPCF,DHIPCF,MAICDS, 

5MAI .PCBLI , BLI .T22DS ,WA21 ,MG50 , FARSO ,A24 , 

6AM23 , DUMSPL, F XFN2M .FXM2CP, AFTFAN.PUNT , PCBL I0.P6DSAV. 

7AMADSV, ETAASV, FAR 7SV.T4PBL »T41 .FAN .ISPOOL 
COMMON /OELCH / OELT1 

COMMON / DYN/ ITRAN.TIME.DT.TF, JTRAN.NSTEP. TPRI NT.OTPRNT 
COMMON /RPMS/ XNHPDS .XNIPDS.XNLPOS, PHI HP ,PMI IP ,PMI LP 
COMMON /VOLS/ VFAN, VINTC, VCOMP .VCOMB.VHPTRB. VI PTRB , VLPTRB, VAFTBN . 
L VFDUCT , VHOUCT 
COMMON /UNITS/ SI 

LOGICAL ERRER, FXFN2M, FXM2CP, DUMSPL, AFTFAN, FAN, SI 
DATA AMORD/AHPUTI N / 

COMMON /LOOPPR/KKGO.PRFNEW, PRC NEW 
DIMENSION XSAVE(405)»XFILL(1> 

EQUIVALENCE IXF ILL, IDES) 

COMMON/ERER/ERRER 

C *** IOES =1 FOR CALCULATING DESIGN POINT 
C ♦** ITRAN »l THIS POINT IS THE IC FOR A TRANSIENT 


C *** MODE «0 FOR CONSTANT T4 
C *** MODE «I FOR CONSTANT PCNC 
C *** MODE »2 FOR CONSTANT WFB 
C *** MOOE »3 FOR CONSTANT PCNF 
C *** INIT =1 HILL NOT INITIALIZE POINT 

C »** I DUMP =1 MILL DUMP LOOPING MRITE-OUTS IF ERROR OCCURS 
C *** IDUMP -2 HILL DUMP LOOPING HRITE-OUTS AFTER EVERT POINT 
C *** IAMTP «0 HILL USE INPUT AM ANO MIL SPEC ETAR 

C *** IAMTP MILL USE INPUT AM AND INPUT ETAR 

C •** IAMTP »2 HILL USE T1»T1*DELT1 ANO STANDARD PI 
C *** IAMTP -3 HILL USE P2 AND STANDARD T1 

C *♦* IAMTP «4 HILL USE T2 AND P2 

C *** IAMTP «5 HILL USE RAM2 FOR SPECIAL RECOVERY 
C *•* IGASHX*— 1 SEPARATE FLOH, INPUT AMA 
C *** IGASMX*0 SEPARATE FLOH, A6=A55 

C *** IGASMXal MILL MIX DUCT AND MAIN STREAMS, A6»A25*A55 

C *** IGASMX-2 HILL MIX DUCT AND MAIN STREAMS, INPUT AMA 

C *** IOBURN«l FOR DUCT BURNtNG, INPUT T24 
C *** IOBURN-2 FOR DUCT BURNING, INPUT MFD 
C *♦* IAFTBN-1 FOR AFTERBURNING, INPUT T7 
C **♦ IAFT6N=2 FOR AFTERBURNING, INPUT HFA 
C •** IOCO »l DUCT NOZZLE HILL BE C-D 

C *** IMCD «L MAIN NOZZLE HILL BE C-0 

C *** NOZFLT*l FOR FLOATING MAIN NOZZLE 
C *** NOZFLT-2 FOR FLOATING DUCT NOZZLE 
C *** N0ZFLT«3 FOR FLOATING MAIN AND DUCT NOZZLES 
C *** ITRYS »N NUMBER OF PASSES THRU ENGINE BEFORE QUITTING 
NAMELIST /OATAIN/ I SPOOL .FAN, SI ,DELT1 , 

1 IDES, MODE, IDUMP, IAMTP, IGASMX , I OBURN, I AFTBN, I OCD, IMCD, NOZFLT, ITRYS, 
2FXFN2M.FXH2CP, AFT FAN, DUMSPL, TOLALL.DELFG.DELFN, DEL SFC, PCNFDS,PRFOS 

3, ETAFDS.PCNCDS, PRCDS, ETAC0S,T4DS,UFBDS,ETABDS,0PC00S,ETHP0S, ETLPOS 

4, DPDU0S,T70S,ETAA0S , DPAFDS, AA , A8, A28, PS55, AM55,CVONOZ,CVMNOZ ,T2, P2 

5, T4,H AFCDS ,HACCDS,HPEXT, AN,ALTP,ET AR, PCNF, PCNC,HFB,PCBLF,PC8LC, 
APCBLDU , PC BLOB, PCB LHP ,PCBLLP,T24,ETAD,T7,HF A, ETAA, AMA.AM23, OPHGOS , 

7A38,PCNIDS,PCBLIP,ZFDS,ZCDS,Z IDS, PCBL ID, TFHPDS.CNHPDS.TF IPOS, 

8CN IPOS, TFLPDS, CNLPDS, PRI DS, ETA IDS, ET IPOS, HA ICDS, PCBLI , CVDHNG, 

91 TRAN , DTPRNT ,TF ,1 NIT ,DT, XNHPDS ,XNI PDS, XNLPDS , PHI HP ,PNI IP, PMILP , 

1VF AN, VINTC, VCOMP, VCOMB.VHPTRB, VIPTRB, VLPTRB, VAFTBN, VFDUCT, VHOUCT 
HORD> AHORO 
ITRAN*0 

jtran=o 

TIME = 0.0 
NSTEP » 0 
TPRINT = 0.0 
DTPRNT » 0.0 
1 CALL ZERO 

IF (KKG0.EQ.1I GO TO 5 
IDES»0 
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c 


2 

3 
C 

4 

5 

6 


7 


C 

C 

8 

9 

10 
11 


RE AO ( 5, DATA IN ) 

IF (ERRER.AND.IAFTBN.GT.O) GO TO 1 
IF (ERRER.AND.IDBURN.GT.O) GO TO 1 
IF ( ERRER .AND.NOZ FLT •GT#0> GO TO 1 
ERRER*. FALSE. 

TABLE IS REFERENCED TO COMMON /ALL/FIRST ENTRY 
IF ( IDES.EQ.O) GO TO 7 
IF (KKG0.NE.2) GO TO 3 
00 2 1*1.397 
XF ILL ( 1 >*XSAVE I I > 

READ ( 5» DATA IN > 


CONTINUE 

SAVE INPUT IN CASE OF LOOP ON 
DO 4 1*1,397 
XSAVE ( I)*XFILL( II 


PRESSURE RATIOS 


GO TO 7 

DO 6 1*1.397 

XF ILL ( I >*XSAVE( I > 

WRITE (6,8) PRFDS .PRFNEW , PRC OS, PRC NEW 

PRCDS*PRCNEW 

PRFDS*PRFNEW 

CONTINUE 

KKG0*2 

IF( iaftbn.gt.o.or.idburn.gt.o.cr.nozflt.gt*o) init-1 

if ( MODE. EQ.O) WRITE (8,9) I0E$,AM,ALTP,T4»T24,T7 

IF ( MODE.EQ* 1 > WRITE (8,10) I DES, AM » ALTP ,PCNC, T24, T7 

IF (MODE.EQ. 2> WRITE (8,11) I OES, A M, ALTP , WFB ,T 24 ,T 7 

IF ( I DES.EQ* 1 > WAFC*WAFCDS 

IF ( DUMSPL ) WA I CD S=WACCDS 

IF ( I DES.EQ. 1) WACI*WAICDS 

IF( IDES.EQ.l) W AC C*WACCDS 

CALL COINLT 

RETURN 


FORMAT (18H0CHANGE PRFDS FR0M.F9.3.4H T0.F9.3.16H ANO PRCDS FROM 

.F10.3.4H TO, F 10 .3) 


FORMAT (1H0.7H 
. T4*,F8.2,5X7H 

FORMAT (1H0.7H 
PCNC* .F8.3.5X7H 
FORMAT (1H0.7H 
. WFB* »F8. 4, 5X7H 
END 


I DES*. 13. 10X7H 
T24*,F8.2,5X7H 
IDES*, I3.10X7H 
T24*,F8.2,5X7H 
I DES*. 13, 10X7H 
T24-,F8.2,5X7H 


AM*,F7.3,6X7H A LTP* ,F7. 0 ,6X7H 
T7*.F8.2»6H**S$A$) 

AM*. F7.3.6X7H ALTP* ,F7. 0.6X7H 
T7*,F8.2,6H$$$$$$) 
AM*,F7.3,6X7H ALTP* , F7.0 ,6X7H 
T7», F8*2,6H$$Sttt> 


121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 


SI8FTC RAM 

SUBROUTINE RAM ( AM, ETAR) 

IF (AM.GT.l.) GO TO 2 
ETAR* 1 * 

1 RETURN 

2 IF (AM. GT. 5.) GO TO 3 

ETAR* 1 .-0* 075* ( ( AM-1 .)♦*!• 35 ) 
GO TO l 

3 ETAR-800. /( ( AM**4 >*935. > 

GO TO 1 

END 


SI8FTC RAM2 

SUBROUTINE RAH2 (AM, ETAR) 

DIMENSION PRINLT( 15) , FMN( 15) 
DIMENSION Y(3),X(3) 

DATA FMN/0.,.1».2,.3..4,.5,*8,1. 1, 
DATA PRINLT/.9, .932, .95, .961 ,. 968, 
1.9 181,. 858,. 8201. *75/ 


1.2, 1.4, 1.6, 1. 8, 2.2, 2*4, 2.7/ 

. 97 , • 9701 , *97 , • 968 1 , • 958 , . 94 . 





1 


M*0 

00 1 J-l, 15 

IF ( AM*GE »FMN( J I) M* J- 1 
IF ( M *EQ»0) M*1 
IF ( M* GE* 14) M-13 
DO 2 I * 1» 3 
MM*M— 1-f I 
XI I)-FMN(MM) 

2 Y(I)*PRINLT<MM> 

CALL PARABO ( X , Y, AM, ETAR > 

RETURN 

END 


7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 


$IBFTC ROLL 

SUBROUTINE ROLL 
COMMON /FOC/FQ { 50, 4) 

COMMON/$OC/SO( 10, 6) 

COMMON /COE LAY/P DATA! 5, 50 1, TIME PT (50) 
DO 1 1*1, 50 
F0( 1,2 )*F0 (1,1) 

1 FO ( 1,4 >*F0< 1,3) 

00 2 1 * 1,10 

SOU, 6)-S0(I, 5> 

SOU, 5 >*S0( 1,4) 

SO ( I , 3 )*S0 (1,2) 

2 SOI 1,2 )*S0 (1,1) 

DO 3 1-1,49 

N 1*51— I 
N0-50— I 

TIMEPT«N1I*TIMEPT (NO) 

DO 3 J*i,5 

3 POATA ( J , N1 l-PDATA ( J , NO ) 

RETURN 

END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


SIBFTC SEARCH 

SUBROUTINE SEARCH C P,A ,B,C ,D, AX, NA,BX, CX, OX, NO,NAM,NOM, NCODE ) 
DIMENSION AX (NAM) ,BX ( NAM, NOM) , CX< NAM, NOM > , DX (NAM,NOM> , N0( NAM) , Q( 9 ) 
C *** NEEDS SUBROUTINE AFQUIR 


C *** AX AND BX MUST BE STORED LO TO HI 
C ♦** P- INPUT PROPORTION BETWEEN 0*0 AN 
C IF NOT INPUT, P MUST EQUAL -1. 


C 

*** NC0DE*00 

OK 

c 

NC ODE-01 

A LO 

c 

NC0DE-02 

A HI 

c 

NCODE-07 

ERROR 

c 

NCODE- 10 

B LO 

c 

NC0DE-20 

B HI 


NCODE-O 

C*0* 


0 * 0 . 

C *** FIND A 

DO l I* 1, NA 
IH-I 

IF (A.LT.AXI I) ) GO TO 2 

1 CONTINUE 

IF < A*GT*AX( IHI) NCODE-2 
A-AXC IH) 

GO TO 3 

2 IF ( IH.GT.l) GO TO 3 

NCODE* 1 

IH-2 
A*AX( 1) 

3 IL-IH-1 


4 

1*0 5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
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L1MH-N0UHI 
L I ML*NO( I L 1 
C ♦** FIND B 

PRM* ( A— AX I IL>>/(AX(IH>-AXUL) I 
PP*P 

IF IP.GE.O.) GO TO 6 

BL*BX( ILt 1 >+PRM*( BXC IH, 1J-BX< IL»i> > 

BH*BX( a»LlML)+PRM*(BXUH t LlHH)-BX( IL,LIML>) 

IF <B.GE*BL> GO TO 4 
NCODE-NCODE+IO 
B-BL 
GO TO 5 

4 IF I B • LE. BH) GO TO 5 
NCQDE*NC0DE+20 

BHM*BX( lit LIML-1>*PRM*(BX(IH,IIMH-1I-BX< IL,LIML-1> I 
CHM*CX< IL,LIML-1)*PRM*(CX< IH,l IMH-ll-CXl IL,LIML-1I I 
DHM-DX ( Ilf LIML-ll +PRM*(DX ( IH» L IMH- ll-D X( IL, LIML-ll I 
CH»CX( IL,LIMLDPRM*(CX< IH f L IMH l-CX ( IL 1 1 1 ML > ) 

DH*DX< IL, LIMLDPRM*(DXUH, LIMHI-DXI IL.LIMLD 
C SLOP E*( CH-CHM I / ( BH-BHM) 

D SLOPE* I OH— OHH I / ( BH-BHM) 

C-CH+CSLOPE*(B-BHI 
D*OH+DSLOPE*( B-BH ) 

RETURN 

5 PP*0* 5 

0 ( 21 * 0 . 

Q I 3 1*0 • 

6 BH-PP*(BX( IH,LIMH)-BX( IH, 1 I )+BX( IH,1> 

BL*PP*(BX< I L, LI ML )-BX( IL , 1 > >*BX( IL , 1 > 

DO 7 J*2, L IMH 

JH*J 

IF I BH.LT .BX( IH, J I) GO TO 8 

7 CONTINUE 

6 Jl*JH-l 

00 9 K*2, L I ML 
KH«K 

IF IBL.LT • BXC IL,K >> GO TO 10 

9 CONTINUE 

10 KL*KH-1 

PR* ( BX ( IH, Jl>-BH>/(BX(IH f JH)-BX(IH,JL) I 
CH*CX( IH, JLI-PR*! CXI IH, JHl-CXt IN, JLI ) 

DH*OX( IH, JL)-PR*(DX( IH, JHI-DXI IH,JU> 

PR»(BXI l L» KL >-BL 1 / 1 BX ( IL,KH)-BX( IL,KL> > 

CL*CX( IL,XL)-PR*( CXI IL,KHI-CX< IL, KL) I 
DL*DX( IL,KL)-PR*(OX( Il,KH>-DX( IL,KLI> 
BT*BL+PRM*(BH-BL) 

CT*CL+PRM* ( CH-CL I 
DT*DL*PRM*(DH-DLI 
IF IP.GE.O.) GO TO 13 
DIR-SQRTIB/BT) 

ERR* l B-BT ) /B 

CALL AFQUIR IQ ( 1) ,PP,ERR, 0. ,25., 0. 001 , DIR, PT , ICONI 
GO TO Ml, 13,121, ICON 

11 PP*PT 

IF (PP.LT.O.) PP*0. 

IF (PP.GT.l.) PP*l. 

GO TO 6 

12 NCODE-7 

13 B*BT 
C*CT 
0*DT 
RETURN 
ENO 
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34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
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82 

83 

84 

85 
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BIBFTC SYG 

SUBROUTINE SYG (ICONI 
DIMENSION M0RDI132) 
DATA 0NED0L/6H$ / 

GO TO I 1,21, ICON 


87 



1 END FILE 8 
REWIND 8 
RETURN 

C TERMINATE THE FILE 

2 WRITE (8# 101 
ENO FILE 8 
REWIND 8 

C REAO RECORD 

3 REAO 18,111 (WORDd), 1-1,1321 

C CHECK FOR 12 L FADING DOLLAR SIGNS 

DO 4 1*1,12 

IF (WORD! I l-ONEDOL) 5,4,5 

4 CONTINUE 
RETURN 

C CHECK FOR 6 TRAILING DOLLAR SIGNS 

5 DO 8 1-1,132 
I-I 

IF IWORDt I 1-ONEDOL) 8,6,8 

6 K* 1*5 

DO 7 J— I , K 

IF (WORD! J 1— ON E COL 1 8,7,8 

7 CONTINUE 
GO TO 9 

8 CONTINUE 
WRITE (6,121 
RETURN 

C PRINT LINE 

9 I-I-l 

WRITE 16,111 (WGRD(M) , M-l, 1 1 
GO TO 3 
C 
C 

10 FORMAT ( 12H$$$$t$m$$$) 

11 FORMAT (132A1) 

12 FORMAT I 1H0, 12HERR0R IN SYG1 

ENO 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 


SI BFTC THCOMP 

SUBROUTINE THCOMP ( PR, ETA ,T,H , S,P, TO, HO, SO,PO> 

COMMON /UNITS/ SI 

LOGICAL SI 

CPG- *250 

I F ( S I > CPG-1048. 

PO«P*PR 

TP«T*PR**0. 28572 
DO 1 1-1,25 

CALL THERMO ( PO ,HP,TP, SP , XI ,0 , X2 ,0 1 
DELS-SP-S 

IF ( ABS(DELS1.LE.0.00005*S) GO TO 2 

1 TP-TP/EXPl DELS/CP Gl 
CALL ERROR 

2 HO— H+( (HP-H1/ETA) 

CALL THERMO ( PO,HO,TO, SO,X1,0, X2, 1 1 

RETURN 

END 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


SIBFTC THERMO 

SUBROUTINE THERMO ( PX, HX, TX, SX ,AMX ,L,FAR,K 1 

COMMON/UNITS/SI 

LOGICAL SI 

IF (SI 1 GO TO 100 

DEM-1 *986375 

CPG-*250 

PSTD- 1*0 
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too 


GO TO 101 

100 DEM«83 16*41 
CPG-1048. 

PSTD-101325. 

101 CONTINUE 
FX*0* 

IF (L.EQ*1> FX*FAR 
IF (K.EQ.ll GO TO 1 

CALL PROCOM I FX ,TX»CS, AK»CP» R tPHI , HX > 
GO TO 3 

1 TX*HX/CPG 
DO 2 1*1,15 

CALL PROCOH (FX ,TX,C$, AK,CP»R ,PHI ,HJ 
DELH-HX-H 

IF ( ABS(OELH1*LE*0*00001*HXI GO TO 3 

2 TX-TX+DELH/CPG 
WRITE (8,4) 

3 SX*PHI-R*ALOG( PX/PSTD) 

AMX*DEM/R 

RETURN 


FORMAT (31H0N0 CONVERGENCE IN THERHO$$$$$$ ) 
ENO 


8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


$IBFTC THTURB 

SUBROUTINE THTURB (DH, ETA,FAR,H,S, P,TO,HO, S0,P0) 

COMMON/UNITS/ZI 

LOGICAL ZI 

IF (ZI ) GO TO 100 

DEM*1«966375 

GO TO 101 

100 DEM*83 16*4 1 

101 CONTINUE 
HO-H-OH 
HOP-H-DH/ETA 
PT«P/2. 

DO 1 1*1, 25 

CALL THERMO ( PT,HOP, TT ,ST , AMWT , l ,F AR. 1 ) 
DELS-ST-S 

IF ( ABS(0ELS)*LE.0*00005*S) GO TO 2 
1 PT*P*EXP(DELS*AMWT/DEM+ALOG(PT/P>> 

CALL ERROR 
2 PO-PT 

CALL THERMO ( PO,HO, TO , SO ,X 1 , 1 , FAR, 1 ) 

RETURN 

ENO 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

u 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


AIBFTC WOUCTI 

SUBROUTINE WDUCTI 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES , JOES , KDE S , MODE ,INIT ,IDUMP , IAMTP , IGASMX, 
2IDBURN, IAFTBN, IDCD , IMCD , I DSHOC, IMSHOC, NOZFLT , ITRYS , 
3L00PER, NOMAP , NUMMAP, MAPEOG»TOLALL ,ERR(9 ) 

COMMON /ALL1/ 

1PCNFGU, PCNCGU, T4GU ,DUMD1 ,DUMD2 ,DELFG , DE LF N tDELSFC# 
2ZFDS , PCNFDS, PRFDS , ETAFDS , WAFDS ,PRFCF , ET AFCF # WAFCF , 
3ZCDS , PCNCDS, PRC DS , ETACDS, WACDS ,PRCCF ,ETACCF, WACCF , 
4T4DS , WFBDS , DTCOOS , ETABDS, W A3CDS ,DPCODS, DTCOCF, ETABCF, 
5TFHPDS ,CNHPDS, ETHPDS ,TFHPCF , CNHPCF ,ETHPCF , DHHPCF t T2DS , 
6TFLPDS,CNLPDS,ETLPDS,TFLPCF,CNLPCF,ETLPCF f DHLPCF,T21DS , 
7T24DS , WFDDS , DTDUOS ,ETAODS ,W A23DS , DPDUOS , DTDUCF, ETAOCF, 
8T7DS ,WFAOS , DTA FOS » ETAAOS » WG6CDS , DPAFOS • DTAFCF.ETAACF, 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 





9A55 

,A25 , A6 , A 7 

,A8 

t A9 

,A28 

, A 29 

$P$55 

, AM55 , CVDNQZ ,C VMN02 

: , A8SAV 

» A9S AV 

, A28SAV, A29SAV 

COMMON 

1 /ALL2/ 





IT 1 

tPl , H 1 ,S1 

>T2 

»P2 

tH2 

»S2 

2T2 1 

, P21 , H21 » S21 

» T 3 

> P3 

i H3 

i S 3 

3T4 

,P4 , H4 ,S4 

» T 5 

? P5 

»H5 

» S 5 

4T5 5 

, P55 , H55 , S55 

» BLF 

, BLC 

, BLDU 

, BLOB 

5CNF 

f PRF t ETA F , W AFC 

, WAF 

,WA3 

, WG4 

, F AR4 

6CNC 

» PRC , ETA C , W AC C 

, WAC 

,ETAB 

, DP COM 

, DUMP 

7CNHP 

, ETATHP , DHT CHP , DHT C 

»8 LHP 

, WG5 

, FAR5 

fCS 

8CNLP 

» ET ATLP , DHTCLP , DHT F 

#B L LP 

t WG55 

,FAR55 

, HPE XT 

9AM 

, ALT P , ETA R ,ZF 

, PCNF 

.ZC 

, PCNC 

, WFB 

$T F F HP 

, TFFLP i PCB LF ,PCBLC 

,PCELDU,PCBLOB,PCBLHP 

,PCBLLP 

COMMON 

l /ALL3/ 





1XP1 

, XWA F , X WA C , XBLF 

, X BLDU 

, XH3 

, OURS 1 

, DUMS2 

2XT21 

, XP2 1 » XH2 l , XS2 1 

t T 2 3 

t P23 

,H23 

» S23 

3T24 

,P24 ,H24 , S 24 

» T 2 5 

» P25 

, H2 5 

, S 25 

4T28 

,P28 , H28 , S28 

» T2 5 

, P29 

,H29 

, S29 

5WAD 

,WFD , WG2 4 , F AR2 4 

, ETAD 

, DPDUC 

, BYPASS 

, DUMS3 

6TS28 

,PS28 ,V28 , A M28 

,TS29 

f PS29 

, V29 

,AM29 

7XT55 

,XP55 , XH5 5 ,X S5 5 

, XT25 

,XP25 

, XH25 

, X S25 

8XWFB 

, XWG55 , XF A R55 , X WFD 

, X WG24 

, XF AR24, XXPl 

, DUMB 

9T6 

,P6 ,H6 ,S6 

i T7 

,P7 

,H7 

r S 7 

$T8 

,P0 , H 8 ,sa 

»T9 

»P9 

» H9 

» S 9 

COMMON 

/ALL4/ 





1WG6 

rWFA , WG7 , F AR 7 

, E T A A 

, DPAFT 

, V55 

f V25 

2PS6 

,V6 , A M6 ,TS7 

,P$7 

,V7 

, AM7 

, A M2 5 

3TS8 

t PS8 , V 8 , AM8 

,TS9 

, PS9 

yV9 

, A M9 

4V A 

, FRO , V JD , FGMD 

,V JM 

,FGMM 

, FGPD 

,FGPM 

5FGM 

i fgp ,wft ,wgt 

, F ART 

» FG 

, FN 

, S FC 

6WA32 

, DPWGDS , DPW ING , WA320S 

, A38 

, AM38 

, V38 

, T 38 

7H 3 8 

t P 38 , T S3 8 , PS38 

f T 39 

, H39 

, P39 

, T S39 

8V39 

» AM39 , A 39 ,BPR I NT 

» WG37 

,CVDWNG,FGMWNG 

yFGPWNG 

9FNWING 

,FNMAIN,FW0VFN,PS39 

, FFOVFN , FCO VF N, FMNOFN 

fFNOVFD 

SVJW 

,T22 , P22 ,H22 

9 S22 

, T50 

, P5 0 

,H50 

COMMON 

/AL L 5/ 





IS 50 

f WA22 ,ZI , PCN I 

, C N I 

, PR I 

, ET AI 

, WAC I 

2TFFIP 

,CNIP , ETATIP, DHTCIP 

, DH Tl 

, BL I P 

, PC BL I P 

yPCNIGU 

3Z IDS 

, PCN IDS, PRI DS , ETA I DS 

, W A I D S 

, PR I CF 

, ET AI CF 

, W AI CF 

4TF IPOS 

,CNIPDS,ETI PDS.TFIPCF 

iCNIPCFtETIPCFfOHIPCF 

, W AI CDS 

5WAI 

, PC8L I i BL I , T 22DS 

, WA21 

, WG5 0 

, FAR50 

, A 24 

6AM23 

,DUM$PL, FXFN2M,FXM2CP 

, AF TFAN, PUNT 

,PC BLID 

, P 6DSA V 

7AM60SV 

,ETAASV,FAR7$V,T4PBL 

»T41 

,FAN 

, I SPOOL 



COMMON /VOLS/ VFAN,VINTC ,VCOMP , VC C MB , VHPTRB , VI PTRB ,VLPTRB, V AFT BN, 
1 VFDUCT ,VWDUCT 
COMMON /UNITS/ SI 
LOGICAL SI 

DATA A WORD/ 6HWDUC T I / 

DIMENSION Q(9) 

DIMENSION XZERO ( 2 61 
EQUIVALENCE ( XZERO,DPWING> 

WORD=AWORO 
IF( SI > GO TO 100 
RA=.025 2 
A J = 2, 719 
GO TO 101 

100 RA=286.9 
A J = 1 • 0 

101 CONTINUE 

IF (PCBLID.GT.O. I GO TO 3 
XZER$=CVDWNG 
DO 1 1 = 1,26 
1 X ZERO ( I ) = 0» 0 

C V DWNG=XZERS 
RETURN 

3 CONTINUE 

P32=P21 
H32=H21 
T32=T 2 1 

BPR I NT=WA32/WAC 
WA32C=WA32*SQRTIT32) /P32 
IF f IDES*EQ* 1) WA 32D$*WA32C 
DPWING=DPWGDS*WA3 2C/WA32DS 


L6 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
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O' O O W + 


DPW ING*AM I N 1( 1*0, DPWING) 

P36«P32*< 1.-DPWING) 

T36-T32 

H36*H32 

CALL THERMO < P 36, H36,T36, $36, XX2, 1 ,0*0 ,0 ) 

WG37*WA32 

T37»T36 

P37-P36 

H37*H36 

S37-S36 

I F ( VWOUCT *EQ*0*0) GO TO 21 

Q(2)*0.0 

Q ( 3 ) *0*0 

WG37P-WG37 

H37P»H37 

P37D0T-0ERI V< 22,P37> 

18 CONTINUE 

CALL THERMO! P 37 , H 37,T 37fS37, XX 2»1» 0*0,01 

WG37»WG37P-P3700T*VW0UCT/T37/1*4/RA 

U37»H37-RA*AJ*T37 

H37X*IwG37P*H37P-fwG37P-MG37 ) ♦U37-U37D0T4P37 4VWDUCT/T37/RA ) /WG37 
ERRW* ( H37-H37X > /H37 
DIR*$QRT( ABS(H37/H37X) ) 

CALL AFQUIR(Q< 1 > , T37 , ERRW • 0* , 20* , 0.000 1 ,DIR, T37T , I GOI 
GO TO ( 19,21,20) » IGO 

19 T37-T37T 
GO TO 18 

20 CALL ERROR 

21 CONTINUE 
N0ZD*0 

CALL CONVRG (T37, H37,P37, S37,0*0, WG37, PI, IDES#A38, P38R,T38,H38,P38 
1, S38,T S38 , PS38, V38, AM38, ICON) 

GO TO (5, 5, 5, 4), ICON 
CALL ERROR 
T39-T38 
H39*H38 
P39*P38 
S39-S38 
T S39*T S38 
V39*V38 
AM39-AM38 
A39-A38 
PS39-PS38 
I OSHOC* ICON+3 
ERR! 7 )* ( P38R-P38) /P38R 

IF ( I DES«EQ* 1) WRITE (6,6) A38 , AM38 , A39 , AM39 
RETURN 

FORMAT ( 18H0 INTER DUCT 0ESIGN,5X,8H A38*, E15«8, 8H AM38»,E15*8 

1,8H A39-,E15*8,BH AN39-,E15.8) 

ENO 


89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
106 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 


SIBFTC ZERO 

SUBROUTINE ZERO 
COMMON /WOROS/ WORD 


COMMON /DESIGN/ 

HOES , JOES ,KDES ,MODE ,INIT ,IOUMP ,IAMTP , IGASMX, 
21 DBURN, IAFTBN, IDCO , IMCO , I DSHGC, IM$HOC,NOZFLT ,ITRYS , 
3L00PER, NOMAP , NUMMAP,MAPEDG,TOLALL ,ERR(9) 


^ /ALL 1/ 
J, PCNCGU 
, PCNFDS 
, PCNCDS 
, WFBOS 
S.CNHPDS 
S , CNLPDS 
•WFDDS 


, T4GU 
, PRFDS 
, PRC OS 
, DTCODS 
t ETHPOS 
, ETL PDS 
, DTOUDS 


,DUM01 
, ETAFDS 
, ETACDS 
, ETABDS 
,TFHPCF 
,TFLPCF 
,ETAODS 


, DUMD2 

,WAFOS 

tWACOS 

, WA3CDS 

,CNHPCF 

,CNLPCF 

» WA23DS 


, DELFG 
, PRFCF 
, PRCCF 
, DPCOOS 
,ETHPCF 
,ETLPCF 
ff DPOUDS 


, OELFN ,C 
,ETAFCF,* 
, ETACCF,b 
, OT COCF , E 
, DHHPCF ,1 
, DH LP CF , 1 
,DTDUCF ,t 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
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1 

2 

3 

4 


8T7DS 

.WFADS 

fOTAFDS 

, ETA AOS 

r WG 6 C 0 S » OPAFOS* DT AF CF» ETA ACF, 

15 

9A55 

,A25 

» A 6 

,A7 

f A 8 

fA9 

f A2 8 

fA29 

16 

SPS55 

,AM55 

,C VDNOZ 

tCVMNOZ 

, A 8 SAV 

fA9SAV 

f A28S AV f A29SAV 

17 

COMMON /ALL2/ 






18 

IT 1 

»P1 

, HI 

»S1 

tT2 

fP 2 

fH 2 

,S2 , 

19 

2 T 2 1 

,P 21 

,H21 

,S21 

»T3 

tP3 

»H3 

F S 3 F 

20 

3T4 

tP4 

, H4 

tS4 

t T5 

»P5 

f H5 

fS5 , 

21 

4T55 

t P55 

, H55 

,S55 

f BLF 

t BLC 

fBLDU 

, BLOB , 

22 

5CNF 

,PRF 

, ETAF 

, WAFC 

, WAF 

, HA3 

t HG4 

f F AR4 9 

23 

6 CNC 

tPRC 

, ETAC 

t H ACC 

, WAC 

fETAB 

,DPCOM 

, DUMP f 

24 

7CNHP 

, ETATHP 

fOHTCHP 

fDHTC 

, B LHP 

fHG5 

, FAR5 

fCS , 

25 

8 CNLP 

, ETATLP 

, DHT CLP 

tDHTF 

, B LLP 

,WG55 

, FAR55 

fHPEXT f 

26 

9AM 

t ALTP 

, ETAR 

tZF 

, PCNF 

fZC 

tPCNC 

fWFB , 

27 

$T FFHP 

,TFFLP 

, PCBLF 

, PCBLC 

, PC 8 LDL 

fPCBLOE 

f PCBL HP 

fPCBLLP 

28 

COMMON 

/ALL3/ 







29 

1XP1 

, XWA F 

, XHAC 

,XBLF 

•XBLDU 

,XH3 

fOUMSI 

f DUMS2 f 

30 

2XT21 

, XP2 1 

, XH2 1 

,XS21 

t T23 

f P23 

f H23 

f S23 , 

31 

3T24 

• P24 

, H24 

# S24 

t T 25 

fP25 

f H25 

fS25 , 

32 

4T28 

i P28 

,H28 

,S28 

,T2 9 

fP29 

, H29 

f S29 , 

33 

SHAD 

,HFD 

t HG2 4 

#FAR24 

, ETAD 

,DPDUC 

f BYPASS 

f DUMS3 v 

34 

6TS28 

tPS28 

f V28 

, AM28 

,T S29 

f PS29 

, V29 

f AM29 , 

35 

7XT55 

, XP55 

, XH5 5 

t XS55 

t XT25 

f XP25 

f XH25 

fXS25 , 

36 

8 XWFB 

, XHG55 

, XFA R55 

,XHFD 

, X WG24 

fXFAR24 

fXXPI 

fOUMB , 

37 

9T6 

» P 6 

,H 6 

t S 6 

fT7 

tP7 

fH7 

,S7 , 

38 

$T 8 

f P 8 

,H 6 

,S 8 

fT9 

fP9 

f H9 

fS9 

39 

COMMON 

/ALL4/ 







40 

1 HG 6 

,HFA 

, WG7 

,F AR 7 

, ETAA 

fDPAFT 

, V55 

fV25 , 

41 

2PS6 

,V 6 

, AM 6 

,TS7 

,PS7 

fV7 

, AM7 

f AM25 , 

42 

3TS8 

,PS 8 

, V 8 

, AM 8 

,TS9 

f PS9 

fV9 

f AM9 , 

43 

4VA 

t FRD 

,VJO 

,FGMD 

fV JM 

, FGMM 

fFGPO 

fFGPM » 

44 

5FGM 

,FGP 

t WFT 

, WGT 

, FART 

*FG 

fFN 

rSFC , 

45 

6HA32 

, DPHGDS 

, DPH ING 

, WA32DS 

f A38 

f AM38 

, V3 8 

fT 38 , 

46 

7H38 

, P38 

, TS38 

»PS38 

fT39 

,H39 

f P39 

fTS39 , 

47 

8V39 

, AM39 

, A39 

, BPR I NT 

,UG37 

fCVDHNG 

fFGMWNG 

fFGPHNG, 

48 

9FNWING 

,FNMAIN 

, FWQ VFN 

f PS39 

, FFOVFN 

fFCOVFN 

i, fmnofn 

fFNOVFD, 

49 

*VJW 

,T22 

t P22 

fH 22 

fS2 2 

tT50 

f P50 

fH50 

50 

COMMON 

/ALL5/ 







51 

1S50 

t HA22 

>ZI 

, PCN I 

,CN I 

, PRI 

,ETAI 

tHACI f 

52 

2TFFIP 

fCNIP 

, ETATIP 

,OHTC IP 

fOHTI 

fBLIP 

, PC BLIP 

fPCNIGU, 

53 

3Z IDS 

, PCN IDS 

, PRI DS 

tETAIOS 

.haids 

fPRICF 

,ETAICF 

fWAICF r 

54 

4TFIPDS 

, CN IPOS 

, ETIPDS 

i TFIPCF 

fCNIPCF 

fETIPCF 

fOHIPCF 

f W AI CDS f 

55 

5HAI 

, PCBL I 

, 8 L I 

, T22DS 

, HA 21 

,WG50 

, FAR50 

f A24 , 

56 

6AM23 

, DUMSPL 

,FXFN2M 

,FXM2CP 

,AFTFAN 

f PUNT 

, PCBL ID 

, P 6 DSAV, 

57 

7AM6DSV 

,ETAASV 

t FAR 7SV 

•T4PBL 

• T41 

.FAN 

• I SPOOL 


58 


DIMENSION Zl(63>,Z2(48>,Z3(10> # Z4(62l 59 
EQUIVALENCE ( Z I , T 1 ) , ( Z2, XP1 ) , ( Z3,XT55 ) » ( Z4 , XFAR55) 60 
IDES-0 6l 
JDES-0 62 
INIT-0 63 
IDBURN-0 64 
I AFTBN-0 65 
IDS HOC * 3 66 
IMSH0C-3 67 
NOZFLT-O 68 
T2Q-T2 69 
P2Q-P2 70 
T4Q-T4 7l 
DO 1 1-1,63 72 
zim-o. 73 
DO 2 1-1,48 74 
Z2(I)-0. 75 
DO 3 1*1,10 76 
Z 3( I )-0« 77 
DO 4 1-1,62 78 
Z4(I>*0. 79 
T2-T2Q 60 
P2-P2Q g! 
T4-T4Q $2 
CALL SYG (1) 83 
RETURN 84 
ENO 85 


92 



THIS IS GENERALIZED COMP* MAP FOR UNREALISTIC SUPERSONIC ENGINE 


SIBFTC BLKCMP 
C 

COMMON / COMP/CNI 15) ,PR< 15,15) , WAC (15, 15>,ETAI 15,15) ,N,NP( 15) 

DATA N*NP/10, 2*6, 2*8, 4*10, 2*8. 5*0/ , _ , , 

DATA CN/. 562, *674 ,.787, *899, 1. ,1.034, 1.067, 1.124, 1.236, 1.292,5*0./ 


DATA ( PR ( 1, 

J ) , WA C ( 1. 

J ) , ETA ( 1, 

J),J~1, 6)/ 


1 

1.00000, 

51.000, 

0.59002, 

1.84000, 

50. 200, 

0. 62178 , 

2 

2.42800, 

49.500, 

0. 64242 , 

2.86900, 

4 8. 80 0 , 

0.65274, 

3 

3.83500, 

46.7 00, 

0.67338, 

4.54900, 

44.500, 

0. 64242/ 

DATA ( PR ( 2, 

J ) , WA C ( 2 , 

J ) , ETA < 2, 

J) ,J*1, 6)/ 


1 

1.00000, 

59.300, 

0.59082 , 

1.96600, 

59. 300, 

0.64242 * 

2 

3. 09300, 

58.800, 

0.69402, 

3. 93300, 

5 7. 900, 

0.72498, 

3 

4.68900, 

56.700, 

0.74562, 

5.52900, 

55. 000, 

0.72498/ 

DATA ( PR ( 3. 

J) , WAC( 3, 

J) , ETA( 3, 

,J)»J~1» 8)/ 


1 

1* 00000, 

70.000, 

0.58566, 

1. 84000 , 

70.000, 

0. 64242 , 

2 

2.68000, 

70.0 00, 

0.68370, 

3.40800 » 

69. 500, 

0.72498, 

3 

4.52100, 

68.800, 

0.77744, 

5.44500, 

6 7. 900, 

0.79292, 

4 

6.31300, 

66.400, 

0.77744, 

6.52300, 

65.700, 

0*76970/ 

DATA t PR ( 4i 

r J ) , WAC ( 4, 

i J) , ETA ( 4, 

,J),J*l, 8)/ 


1 

1.00000, 

84.800, 

0.58050, 

2.00800, 

84. 800, 

0. 64242 , 

2 

3.42900, 

84.800, 

0.72498, 

4. 60500, 

84. 800, 

0.77744, 

3 

5.69700, 

84.000, 

0.80840, 

6*61400 , 

83. 300, 

0. 82904, 

4 

7.53800, 

81.7 00, 

0. 80840 , 

7.95800, 

80. 500, 

0. 79292/ 

DATA ( PR( 5, 

,J),WAC( 5j 

r J) , ETA( 5 

, J ) fj*l , 10 ) / 


1 

1.00000, 

101.700, 

0.57190, 

2.51900, 

101.700, 

0* 64242 , 

2 

3.98200, 

101.700, 

0.72498, 

5.27700, 

101.700, 

0. 77744 , 

3 

6.48800, 

101.200, 

0.80840, 

7.20200, 

101*000, 

0. 83936 , 

4 

6.00000, 

100.000, 

0.86000, 

8.56700, 

99. 500, 

0. 83936 i 

5 

9.38600, 

98.100, 

0.80840, 

9.59600, 

9 7.400, 

0.80582/ 

DATA ( PR ( 6 

, J ) , WAC( 6 

,J),ETA< 6 

, J) ,J*1, 10) 

/ 


1 

1.00000, 

108.100, 

0.57018, 

2.85500, 

108. 100, 

0. 64242 , 

2 

4.29700, 

108.100, 

0.72498, 

5.61300, 

108*100, 

0* 77744, 

3 

6.93600, 

107.600, 

0.80840, 

7.62200, 

107. LOO, 

0*83936, 

4 

8. 54600, 

106.700, 

0.86000, 

9.13400, 

106. 000, 

0. 83936 , 

5 

9.92500, 

104* 5 00, 

0*80840, 

10.21900, 

104.000i 

0. 80410 / 

DATA ( PR ( 7 

, J) , WAC ( 7 

, J) ,ETA( 7 

, J) ,3*1,10)/ 


1 

1.00000, 

114.500, 

0. 55986, 

3.26100, 

114. 500, 

0* 64242 , 

2 

4. 75900, 

114.500, 

0.72498, 

6.11700, 

114.500, 

0.77744, 

3 

7.45400, 

114.500, 

0.80840, 

8.30800, 

114.300, 

0. 83936 , 

4 

9.21800, 

113.600, 

0.84968 , 

9.63800, 

113.300, 

0* 83936 , 

5 

10.51300, 

112.600, 

0.80840, 

10.99600, 

112.400, 

k * 

0.79808/ 


DATA ( PR( 8 , J ) , WA C ( 8,3>,ETA( 8, J ) , J- 1 , 10) / 


1.00000, 

3.84900, 

6.86600, 

8.96600, 

10.91200, 


122.900, 

122*900, 

122.900, 

122.600, 

121.700, 


0.53922, 1.68600, 122.900, 

0.64242, 5.46600, 122.900, 

0.77744, 8.37100, 122.900, 

0.82388, 9.88300, 122.100, 

0.80840, 11.81500, 120.700, 

DATA (PR( 9,J),WAC( 9,J),ETA( 8) ' an* 

1 1*00000, 139.800, 0.47644, 4*35300, 139.800, 

2 7.62200, 139.800, 0.72498, 10*21900, 139.800, 

3 11.05900, 139.800, 0.78260, 11.89900, 139.500, 

4 13.15900, 139.300, 0.72498, 13.65600, 139.000, 

DATA (PR( 10,J) ,WACUO, J) ,ETA( 10, J) ,J-1, 

1 1.00000, 146.200, 0.46612, 3.76500, 146.200, 

2 6.48100, 146.200, 0*64242, 9.17600, 146*200, 

3 10.21900, 146.200, 0.75078, 11.47900, 146.200, 

4 12.71100, 146.200, 0.72498, 14.41200, 146.200, 

END 


0. 57018, 
0.72498, 
0.80840, 
0.83936, 
0*77744/ 

0*60114, 

0.77744, 

0.77744, 

0.69918/ 

0. 57018, 
0. 72498, 
0. 75078, 
0.64242/ 
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SIBFTC BLKFAN 
C 


™iS F IS A GENERALIZED FAN MAP FOR UNREALISTIC SUPERSONIC ENGINE 

COMMON^/ 1 * FAN/C N( 15> ,PR! 15, 15 ) ,NAC 115, 15 » , ET A( 15, 151 ,N,NPI 151 
OATA N,NP/ 10,6,3*7,5*10, 8,5*0/ 

DATA CN/O. 3, 0*4, 0*5, 0.6, 0*7, 0.8, 0.9, 1.0, 1.1, 1.2,5 0./ 

DATA ( PR ( 1, J) , WAC( 1,J),ETA( 1,J),J*1, ? n 

1 1.00000, 243.600, 0*75592, 1*01200, 229.800, 0*76120, 


1 

2 

3 

4 

5 

6 
7 
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2 

1.02800, 

199.800, 

0.76648, 1.03840, 166.800, 

0.75592, 

3 

1.04480, 

133.200, 

0.72512, 1.C4800, 06.400, 

0.64152/ 

DATA ( PR ( 

2 » J ) , WA C { 2 

,J),ETA( 2, J ) , J=1 , 7)/ 

1 

1.00030, 

286.800, 

0.75592, 1.02000, 270.000, 

0. 77616, 

2 

1.04000, 

253. 200, 

0.79200, 1.05840, 233.400, 

0.79728, 

3 

1.07520, 

209.400, 

3.03256, 1.09203, 183.600, 

0.77616 , 

4 

l. 10000, 

156. 6C0, 

0. 74308/ 

D A T A ( P R ( 

3,J),WAC( 3 

, JI,ETA( 3, J ) ,J = 1, 7)/ 


1 

1.00000, 

333.600, 

0.75064, 1.02560, 322.800, 

0.77616 , 

2 

1.05120, 

310.200, 

0.80256, 1.C8000, 291.600, 

0. 82808 , 

3 

1.11600, 

259.800, 

0.84392, 1.13200, 24C.000, 

0. 82808 , 

4 

1.14800, 

2 L 3. 600, 

0. 77616/ 


DATA C PR f 

4 , J ) , WA C ( 4, 

t J> »ETA( 4, J ) ,J=1 , 7 > / 


1 

1.00000, 

383#4C0, 

0.74536, 1.03680, 376.200, 

3. 77616 , 

2 

1.08800, 

358. 2C0, 

0. 82808, 1. 12400, 340. 200, 

0.85448, 

3 

1.16000, 

313.200, 

0.88000, 1.18960, 276.600, 

0.82808, 

4 

1.19520, 

266.403, 

0.80784/ 



DATA ( PR I 5 , J ) , WA C ( 5,J),ETA{ 5 , J ) f J = 1 , 1 0 > / 

1 1*00000, 439*800, 0*72512, 1*06400, 436*800, 0*77616, 

2 1*11840, 428.400, 0*82808, 1*14800, 420*600, 0.85448, 

3 1*18400, 406.800, 0.88000, 1*20960, 393*600, 0*90112, 

4 1.21760, 388. 2CO, 0*90376, 1*22400, 383.400, 0.90112, 

5 1*24400, 368*400, 0.88000, 1*26720, 342*600, 0*82808/ 

DATA < PR ( 6 , J > , WA C ( 6,J),ETA( 6, J I , J = l ,101/ 

1 1*00000, 499.800, 0.68816, 1*10000, 499*800, 0*77616, 

2 1.16000, 493.200, 0*82808, 1*20000, 485*400, 0*85448, 

3 1*22800, 476*400, 0.88000, 1*25520, 466*800, 0*90112, 

4 1.27200, 456* 6C0, 0.91080, 1*28640, 448.230, 0.90112, 

5 1.30240, 433.200, 0*88930, 1.33200, 436.800, 0.82720/ 

DATA ( PR { 7,J>,hAC< 7,J),ETA{ 7 , J ) , J= 1 , 1 0 > / 

1 1*03090, 566.400, 0*64152, 1.07600, 566.400, 0.72512, 

2 1.15200, 566.400, 0.77616, 1.21920, 559.800, 0.82808, 

3 1.26000, 553. 2C0, 0.85888, 1.28960, 544.800, 0.88000, 

4 1.33120, 528.600, 0.90112, 1.36169, 509.400, 0.88000, 

5 1.39120* 483.600, 0.82008, 1.40000, 474.000, 0.81752/ 

DATA ( PR ( 8 , J ) , WA C ( 8,J),ETA( 0»J> ,J = 1 ,10)/ 

1 1.00000, 633. 6C0, 0.60016, 1.04400, 633.600, 0.64152, 

2 1.13520, 633.600, 0.72512, 1.22080, 633.000, 0.77616, 

3 1.29440, 625.800, 0.82808, 1.34000, 616.800, 0.85888, 

4 1.40000, 600.000, 0.88000, 1.42800, 586.800, 0.85888, 

5 1.44800, 576.600, 0.82808, 1.48000, 553.200, 0.78672/ 

DATA (PP{ 9 , J ) v WAC ( 9,J),ETA( 9, J ) , J-l ♦ 10) / 

1 1.00000, 700*200, 0.56936, 1.10400, 700.200, 0.64152, 

2 1.22000, 700.200, 0.72512, 1.32400, 700*200, 0.77616, 

3 1.40900, 700.200, 0.80256, 1.44800, 698.400, 0.80784, 

4 1.50000, 693.600, 0.80256, 1.53360, 683.400, 0.77616, 

5 1.56800, 666.600, 0.74536, 1.58400, 656.400, 0.72512/ 

DATA < PR< 10, J) , WACI10, J) ,ETA< 10, J > ,J=1 , 8)/ 

1 1.00000, 750. OCO, 0.51744, 1*16320, 750*000, 0.64152, 

2 1.31200, 750*000, 0.72512, 1.40000, 750.000, 0*75592, 

3 1.48000, 750. OCO, 0.76120, 1.54000, 750.000, 0.75064, 

4 1.58300* 749. 4C0, 0.72512, 1.66000, 736.800, 0.64152/ 

END 
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$ IB F T C BLKINT 

C THIS IS A GENERALIZED FAN MAP FOP UNREALISTIC SUPERSONIC ENGINE 

BLOCK DATA 

COMMON / INT / CN ( 15 ) ,PR( 15, 15) ,WACU5, 15) ,ETA(1 5, 15) , N,NP( 15) 
DATA N,NP/ 10,6, 3* 7, 5*10, 8, 5*0/ 

DATA CN/O. 3,0. 4, 0.5, 0.6,0. 7, 0.8, 0.9, 1.0, 1.1, 1.2, 5*0./ 

DATA <PR( 1,J),WAC( 1,JI , ETA( 1,J),J=1, 61/ 

1 1.00003, 121. SCO, 0.75592, 1.C1800, 114.900, 0.76120, 

2 1.04200, 99.900, 0.76648, 1.05760, 83.400, 0.75592, 

3 1.06720, 66.603, 0.72512, 1*07200, 43.200, 0.64152/ 

DA T A (PM 2,J),WAC( 2,J>,ETAl 2,J),J=1, 7)/ 

1 1.00300, L43.4C3, C. 75592, 1.03000, 135.000, 0.77616, 

2 1.06030, 126.600, 0*79200, 1.C8760, 116.700, 0.79728, 

3 1.11280, 104.700, 0.80256, 1.13800, 91.800, 0.77616, 

4 1.15300, 78.300, 0. 7 4308 / 


1 
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DATA ( PR ( 3, 

J) ,WAC( 3, 

J»,ETA( 3,J> ,J-l. 7)/ 


L 

1.00000, 

166.800, 

0.75064, 1.03840, 

161*400, 

0.77616, 

l 

1. 07680, 

155.100, 

0.80256, 1.12000, 

145. 800, 

0* 82808, 

J 

1.17400, 

129.900, 

0.84392, 1.19800, 

120.000, 

0.82808, 


1.22200, 

106.800, 

0.77616/ 



DATA < PR ( 4, 

J),WAC( 4, 

J) ,ETA( 4, J ) , J 3 1 , 7)/ 


L 

1.00000, 

191.700, 

0.74536, 1.05520, 

188. 100, 

0* 77616 , 

2 

1. 13200, 

179.100, 

0.82808, 1.18600, 

170. 100, 

0. 85448, 

3 

1.24000, 

156.600, 

0.88000, 1.28440, 

138. 300, 

0. 82808, 


1.29280, 

133.200, 

0.80784/ 



DATA I PR C 5, 

J ) , WAC( 5, 

J) ,ETA ( 5, J) ,J«1 , 10) / 


1 

1.00000, 

219.900, 

0.72512, 1.09600, 

218. 400, 

0*77616, 

2 

1.17760, 

214.200, 

0.82808, 1.22200, 

210. 300, 

0* 85448 * 

3 

1*27600, 

203.400, 

0.88000, 1.31440, 

196. 800, 

0* 90112, 

4 

1.32640, 

194.100, 

0*90376, 1.33600, 

191.700, 

0* 90112 , 

5 

1.36600, 

184.200, 

0.88000, 1.40080, 

171.300, 

0.82 808 / 

DATA < PR ( 6 

J ) , MAC ( 6, 

J ) , ETA ( 6, J) 9 J*lt 10)/ 


1 

1.00000, 

249.900, 

0.68816, 1.15000, 

249. 900, 

0*77616, 

2 

1.24000, 

246.600, 

0.82808, 1.30000, 

242.700, 

0. 85448 , 

3 

1.34200, 

238.200, 

0.88000, 1.38280, 

23 3.400, 

0.90112, 

4 

1.40800, 

228.300, 

0.91080, 1.42960, 

224. 100, 

0*90112, 

5 

1.45360, 

216.600, 

0.88000, 1.49800, 

203.400, 

0*82720/ 

DATA ( PR ( 7 

,J),WAC( 7 

, J ) , ETA ( 7 , J ) , J= l , 10) / 


1 

1.00000, 

283.200, 

0*64152, 1.11400, 

283.200, 

0*72512, 

2 

1.22800, 

283.200, 

0.77616, 1.32880, 

279.900, 

0* 82 808 , 

3 

1.39000, 

276.600, 

0.85888, 1.43440, 

272.400, 

0* 88000, 

4 

1.49680, 

264.300, 

0.90112, 1.54240, 

254. 700, 

0*88000, 

5 

1.58680, 

241.800, 

0.82808, 1.60000, 

23 7. 000, 

0*81752/ 

DATA ( PR ( 8 

, J ) , WAC( 8 

, J) ,ETA { 8, J ) , J*1 9 10) / 


1 

1.00000, 

316.600, 

0.60016, 1.06600, 

316. 800, 

0* 64152 , 

2 

1.20280, 

316.800, 

0.72512, 1.33120, 

316* 500, 

0* 77616, 

3 

1.44160, 

312.900, 

0.82808, 1.51000, 

308. 400, 

0* 85888, 

4 

1.60000, 

300.000, 

0.88000, 1.64200, 

293.400, 

0. 8588 8 , 

5 

1.67200, 

288.300, 

0.82808, 1.72000, 

276. 600, 

0* 7 867 2 / 

nATA ( PR ( 9 

, J ) , WAC( 9 

, J ) , ETA ( 9, J ) , J*1 , 10) / 


1 

1 . 00000 , 

350.100, 

0.56936, 1.15600, 

35 0* 100, 

0* 64152 , 

2 

1.33000, 

350. ICO, 

0.725L2, 1.48600, 

350. 100, 

0* 77616 , 

3 

1*600 00 , 

350*100, 

0.80256, 1.67200, 

34 9.200, 

0 * 80784 , 

4 

1.75000, 

346*8 00 , 

0.80256, 1.80040, 

34 1. 700, 

0*77616, 

5 

1.85200, 

333.300, 

0.74536, 1.87600, 

32 8 . 200, 

0* 72512 / 

DATA 1 PfU 10 

, J) , WAC ( 1 0 

, J) , ETA ( 10, J) tJ*lf 

8)/ 


1 

1 . 00000 , 

375.000, 

0.51744, 1.24480, 

375.000, 

0* 64152 , 

2 

1.46800, 

375.000, 

0.72512, 1.60000, 

375.000, 

0* 75592 , 

3 

1.72000, 

375.000. 

0.76120* 1.81000. 

375.000, 

0 * 75064 , 

4 

1.87000, 

374.700, 

0.72512, 1.99000, 

368.400, 

0*64152/ 


END 
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$ IBFTC CMBDT 

COMMON / COMB/PSH 15>,0ELTtl5, 151 »ETAf 15,15) »N,NP< 15) 

DATA N ,NP / 15, 15*15 / 

OAT A PSI/4.9116,9.8232,14.735 » 19* 646 1 24. 558 » 29*470 ,34* 381 » 

139. 293, 44. 207, 73# 674, 100* , 200* ,300*, 400* ,500./ 

DATA DELT/ 15*200. ,15*300., 15*400., 15*500. , 15*600. , 15*700. , 15*800., 
115*900., 15*1000*, 15*1100. , 15* 1200. , 15*1300. • 15*1400. ,15*1500. , 


215*1600./ 

DATA ETA/ 

1.600. . 758. .868. .9 25. .960 . . 988 . 9*1 . 00, 

2. 726. . 825. . 893. .936. .966. . 991 . 9*1. 00, 

3. 777. . 858. .911. .946. .972 . .992 . 9*1. 00, 

4. 806.. 875.. 925. .9 55 . .977 . .994 . 9*1. 00, 

5.826. . 888.. 935.. 933.. 982.. 995. 9*1. 00, 

6. 843. . 898. .942. .969, « 985 ,. 997 ,9*1.00, 

7* 855, .906, .947, .974, .990, • 998 ,9*1.00, 

8.865. . 912.. 951.. 977.. 992.. 999. 9* 1.00, 

9. 870. . 914. .953.. 978. .993. .999. .999.8*1.00, 

A. 8 70, .915, .953,. 979,. 995,. 999,. 999, 8* 1.00, 

B. 870,. 915,. 953, .979,. 995,. 999,. 999, 8*1. 00, 

C. 870, .915, .953, .979, .995 ,. 999 , .999,8*1.00. 
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D.870,.915,.953, «979» *995 , .999, .999 ,8*1.00, 
E* 870, • 915, *953, *979, .995 ,. 999, *999,8*1*00, 
F.870,.915,. 953, .979, *995, .999 , .999 ,8*1 .00/ 
END 


22 

23 

24 

25 


ilBFTC HPTDAT 

BLOCK OATA 

COMMON / HTURB/TFF( 15) ,CN(15, 15>,DH( 15, 15) ,ETA ( 15 , 15 ) , N,NP( 15) 
DATA N,NP/ 10,9*15,12,5*0/ 


DATA TFF / 

39.670, 

42.990, 

1 

49.600, 

50.000, 

50.425, 

DATA <CN< 1 

, J ) , DH ( 1 

, J ) , ETA( 1 

1 

0.1872, 

0.00 32, 

0.6219, 

2 

0.5156, 

0.0084, 

0.7868 , 

3 

0.9382, 

0.0133, 

0*8090, 

4 

1*3138, 

0*0164, 

0.7779, 

5 

1*7264, 

0.0179, 

0*7078, 

6 

2.1500, 

0.0167, 

0*6068, 

7 

2.5892, 

0.0120, 

0.4773, 

8 

2.9460, 

0.0034, 

0.3034/ 

DATA (CN( 2 

, J ) , DH ( 2 

,J),ETA( 2 

1 

0.1872, 

0.00 38, 

0*6068, 

2 

0.5814, 

0.0113, 

0.8090 , 

3 

0.8442, 

0.0156, 

0*8363, 

4 

1.1068, 

0.0192, 

0*8368, 

5 

1*4450, 

0*02 28, 

0.8254, 

6 

1*9696, 

0*0260, 

0*7696, 

7 

2.6970, 

0.0241, 

0*6068 , 

8 

3.3774, 

0*0128, 

0.4197/ 

OATA ( CN( 3, 

, J > , DH ( 3, 

t J > , ETA( 3, 

1 

0.1872, 

0*0046, 

0*5764, 

2 

0.6568, 

0.0144, 

0*8090, 

3 

1*0696, 

0.0216, 

0*8543, 

4 

1*4638, 

0*0268, 

0* 8494 , 

5 

1*9696, 

0.0316, 

0.8262, 

6 

2*5520, 

0.0344, 

0*7579, 

7 

3.0392, 

0.0340, 

0*6652 , 

8 

3.3774, 

0.0312, 

0*5865/ 

DATA <CN< 4, 

* J ) , DH ( 4, 

J>,ETA( 4, 

1 

0*1872, 

0.0052, 

0. 5643 , 

2 

0*4784, 

0.0120, 

0*7078, 

3 

0*9148, 

0.0204, 

0*8494, 

4 

1*3882, 

0.02 80, 

0.8596, 

5 

1.8010, 

0.0336, 

0.8535, 

6 

2.2794, 

0.03 88, 

0.8363, 

7 

2*8334, 

0.0441, 

0*8090, 

8 

3.3774, 

0.0494, 

0.7584/ 

OATA (CN< 5, 

J ) ,0H ( 5, 

J > ,ETA< 5, 

1 

0*1872, 

0*0056, 

0.5562, 

2 

0*5254, 

0*0144, 

0.7078, 

3 

0.9754, 

0.0236, 

0.8494, 

4 

1*4824, 

0.0321, 

0* 8696 , 

5 

2.0450, 

0.0400, 

0.8615, 

6 

2*6450, 

0 * 0496, 

0*8520, 

7 

3*0764, 

0*0596, 

0*8494, 

8 

3*1618, 

0*0661, 

0.8570/ 

DATA <CN< 6, 

J ) , DH ( 6, 

J),ETA< 6, 

1 

0.1872, 

0.0068, 

0.5309, 

2 

0.6196, 

0.0192, 

0.7078, 

3 

1*0932, 

0. 0300, 

0*8494, 

4 

1*5010, 

0*0384, 

0*8819, 

5 

1.9138, 

0.0472, 

0.8940, 

6 

2*2706, 

0.0564, 

0.8975, 

7 

2.4950, 

0.0640, 

0.8968, 

8 

2*5558, 

0.0698, 

0*8896/ 

DATA (CN( 7, 

J > , DH { 7, 

J),ETA< 7,, 

1 

0*1872, 

0.0080, 

0*5062 , 

2 

0*6844, 

0.0236, 

0*7078, 

3 

1*2010, 

0.0372, 

0*8494, 


47.460, 

68. 61 Or 

49.175, 

50.920, 

51. 575. 

5*0*/ 

,J» ,J-1, 15>/ 


0*3372, 

0*0057, 

0.7078, 

0.7128, 

0*0108, 

0*8090, 

1.1442, 

0.0152, 

0.7963, 

1*5382, 

0*0174, 

0.7422, 

1*9324, 

0*0176, 

0.7635, 

2*4058, 

0*0144, 

0.5309, 

2*7862, 

0*0082, 

0*4045, 

, J>, J*l,15)/ 

0.3942, 

0.0080, 

0*7078, 

0*7128, 

0*0136, 

0*8292, 

0.9804, 

0.0176, 

0*8393, 

1.2754, 

0.0212, 

0*8302, 

1*7068, 

0.0248, 

0*8090, 

2*2706, 

0.0261, 

0.7078, 

3*0960, 

0*0188, 

0*5056, 

»J> » J«l, 15>/ 

0*4362, 

0*0100, 

0*7078, 

0*8726, 

0*0184, 

0*8494, 

1.2382 , 

0*0240, 

0*8515, 

1*6882, 

0*0292, 

0*8409, 

2*2138, 

0.0331, 

0.8090, 

2.8050, 

0.0346, 

0.7078, 

3.2648, 

0*0324, 

0.6068, 

-J» , J*1 1 15 1/ 

0*2550, 

0*0068, 

0*6068, 

0*6942, 

0*0164, 

0*8090, 

1*1442, 

0*0244, 

0*8596, 

1*5618, 

0*0304, 

0*8575, 

1*9794, 

0*0356, 

0*8494, 

2*5138, 

0*0412, 

0*8262, 

3.1422, 

0.0472, 

0.7797, 

J>.J»1,15>/ 

0.3000, 

0*0088, 

0.6068, 

0.7500, 

0.0192, 

0.8090, 

1.2754, 

0*0288, 

0.8697, 

1*7638, 

0*0360, 

0*8662, 

2*3362, 

0*0444, 

0*8555, 

2*8706, 

0*0540, 

0*8494, 

3.1520, 

0*0640, 

0*8532, 

J> » J*l» 15 >/ 

0.3568, 

0.0 120. 

0*6068, 

0.8628, 

0.0252. 

0*8090, 

1.2852, 

0.0360. 

0*8697, 

1.6882, 

0.0621. 

0*8899, 

2.1246, 

0.0526, 

0*8969, 

2.4226, 

0.0612, 

0*8976, 

2.5372, 

0.0668, 

0*8937, 

J> « J*1 1 15 1/ 

0.4314, 

0*0164, 

0.6068, 

0.9568, 

0*0308, 

0.8090, 

1*3834, 

0*0416, 

0.8697, 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 
63 


96 



4 1.5108, 0.0448, 

5 1.7450, 0.0510, 

6 1.9558, 0.0576, 

7 2.0450, 0.0624, 

8 2.1010, 0.0700, 

DATA ( CN( 8 , J ) , DH ( 8, 

1 0*1872, 0.0088, 

2 0.7314, 0.0272, 

3 1.0226, 0.0356, 

4 1.2804, 0.0432, 

5 1.4638, 0.0488, 

6 1.6746, 0.0560, 

7 1.8010, 0.0640, 

8 1.8196, 0.0693, 

DATA <CM 9 , J ) , DH ( 9 

1 0.1872, 0.0093, 

2 0.5344, 0.0232, 

3 0.8068, 0.0330, 

4 1.0128, 0.0400, 

5 1.2196, 0.0480, 

6 1.3696, 0.0556, 

7 1.4450, 0.0612, 

8 1.4676, 0.0668, 

DATA ( CN( 10, J > , DH ( 10 

1 0.1872, 0.0132, 

2 0.3804, 0.0228, 

3 0.5628, 0.0314, 

4 0.6892, 0.0380, 

5 0.7696, 0.0440, 

6 0.8254, 0.0504, 

END 


0.8797, 1.6186, 

0.8954, 1.8618, 

0.9010, 2.0000, 

0.8980, 2.0824, 

0.8793/ 

J ) ,ETA ( 8,J) ,J«1, 15)/ 
0.5051, 0.4834, 

0.7078, 0.8814, 

0.8090, 1.1442, 

0.8494, 1.3696, 

0.8697, 1.5950, 

0.8848, 1.7450, 

0.8788, 1.8156, 

0.8590/ 

JI,ETA( 9,J> ,J«1,15)/ 
0.4909, 0.3372, 

0.6068, 0.6754, 

0.7078, 0.9196, 

0.7776, 1.1254, 

0.8191, 1.3138, 

0.8347, 1.4068, 

0.8322, 1.4638, 

0.8090/ 

,J),ETAU0,J) , 1 , 12 >/ 

0.4257, 0.2814, 

0.5056, 0*4686, 

0.5683, 0.6382, 

0.6068, 0.7362, 

0.6240, 0*8068, 

0.6265, 0.8304, 


0.0476, 0.8899, 64 

0.0544, 0.9000, 65 

0.0600, 0.9000, 66 

0.0660, 0.8925, 67 

66 

69 

0.0196, 0.6068, 70 

0.0316, 0*7665, 71 

0.0392, 0.8292, 72 

0.0460, 0*8596, 73 

0.0528, 0.8808, 74 

0.0596, 0.8848, 75 

0.0664, 0.8697, 76 

77 

78 

0.0159, 0.5380, 79 

0.0284, 0.6573, 80 

0.0368, 0.7463, 81 

0.0442, 0.8090, 82 

0.0524, 0.8302, 83 

0.0580, 0.8363, 84 

0.0640, 0.8241, 85 

86 

87 

0.0180, 0.4747, 88 

0.0268, 0.5359, 89 

0.0352, 0.5941, 90 

0.0412, 0*6178, 91 

0.0476, 0.6310, 92 

0.0530, 0.6118/ 93 

94 


SIBFTC IPTDAT 

BLOCK DATA ^ _ 

COMMON / I TURB / TFF ( 15 ) ,CN( 1 5 , 15 > ,DH ( 15 , 151 ,ETA ( 1 5 , 

DATA N , NP/ 1 1 , 9*15 ,12,9,4*0/ 

OATA TFF / 70.776, 82.236, 93.468, 103.464, 

1 116.560, 120.000, 122*676, 125.124, 127.824, 

OATA (CN( 1 , J > , DH ( 1,J),ETA( 1 » J ) , J»1 , 15 )/ 

1 0.3522, 0.0016, 0.7120, 0.5104, 0.0023, 

2 0.7044, 0.0031, 0*7472, 0.9330, 0.0038, 

3 1.1618, 0.0045, 0.7140, 1.3556, 0.0049, 

4 1.5497, 0*0052, 0.6850, 1.6905, 0*0054, 

5 1.9367, 0.0055, 0.6452, 2.1835, 0.0054, 

6 2.3593, 0.0051, 0.6000, 2.5001, 0.0047, 

f n.0038. 0.5310, 2*8175, 0.0031, 


3.1698, 0*0001, 0.3850/ 


3.1698, 0.0068, 0.5900/ 


0.0035, 

0.0061, 

0.0076, 

0.0089, 

0.0094, 

0.0093, 

0.0083, 


0.0045, 

0.0076, 

0.0098, 

0.0118, 

0.0134, 

0.0142, 

0.0147, 


3.1698, 0*0145, 0.7600/ 

A ICN< 4, J) , DH ( 4, J ) ,ETA( 4 , J > , J«1 , 15 1/ 


DATA ICN< 4, J) , DH ( 4,J),ETA< 4, 

1 0.3522, 0.0029, 0.7995, 

2 0.6514, 0.0054, 0.8400, 

3 1.0567, 0.0084, 0.8680, 


0.4052, 

0.8452, 

1.2322, 


0.0034, 

0.0069, 

0.0097, 


15 ) ,N, NP( 15) 

112.836, 

130.536,4*0./ 

0.7300, 
0.7300, 
0.7000, 
0.6730, 
0*6200 , 
0.5750, 
0.5000, 


0.8100, 
0.8300, 
0.8290, 
0.8000 , 
0.7600, 
0.7000, 
0.6450, 


0.8300, 

0.8630, 

0.8700, 

0.8720, 

0.8670, 

0.8500, 

0.8000, 


0.8000, 

0.8600, 

0.8730, 


1 

2 

3 

4 

5 

6 
7 
a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
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A 

1.4434, 

0.0111, 

0.8800, 

1.6722, 

0.0124, 

0.8830, 

37 

5 

1.9540, 

0.0140, 

0.8835, 

2.1131, 

0.0146, 

0.8830, 

38 

6 

2.2715, 

0.0153, 

0.8800, 

2.4915, 

0.0161, 

0.8740, 

39 

7 

2.7471, 

0.0168, 

0.8600, 

2.9931, 

0.0172, 

0.8350, 

40 

8 

3.1698, 

0.0173, 

0.8200/ 




41 

DATA <CN< 5 

, J ) , DH ( 5 

,J),ETA< 5 

tJ) » J*1 , 15 1/ 



42 

1 

0.3522, 

0 . 0031, 

0.7750, 

0.4844, 

0.0043, 

0.8000, 

43 

2 

0.7044, 

0.0062, 

0*8480, 

0.9330, 

0.0081, 

0.8600, 

44 

3 

1.2322, 

0. 0105, 

0.8750, 

1.4967, 

0.0124, 

0.8900, 

45 

4 

1.6548, 

0.0136, 

0.8912, 

1.8834, 

0.0152, 

0.8940, 

46 

5 

2.0071, 

0.0159, 

0.8955, 

2.1652, 

0.0169, 

0.8970, 

47 

6 

2. 3274, 

0.0178, 

0.6961 , 

2.5531, 

0.0189, 

0.8900, 

48 

7 

2.8175, 

0.0199, 

0.8790, 

3.0461, 

0.0207, 

0.8671 , 

49 

8 

3. 1698, 

0.0210, 

0.8600/ 




50 

DATA (CN( 6 

, J > * DH ( 6 

, J > ,ETA< 6 

•J>,J«1, 15)/ 



51 

1 

0.3522, 

0.0034, 

0. 7600 , 

0.5896, 

0.0057, 

0.8000, 

52 

2 

0.8008, 

0.00 76, 

0.8450, 

1.0567, 

0.0100, 

0.8600, 

53 

3 

1.2322, 

0.0114, 

0.8730, 

1.4619, 

0.0134, 

0.8900, 

54 

A 

1.6722, 

0.0150, 

0.8950, 

1.8660, 

0.0165, 

0.9000, 

55 

5 

2.1171, 

0.0184, 

0.9005, 

2.3245, 

0.0199, 

0.9010, 

56 

6 

2.5357, 

0.0214, 

0.9004, 

2.7375, 

0.0228, 

0.9000, 

57 

7 

3.0019, 

0.0251, 

0.8900, 

3.1167, 

0.0267, 

0.8800, 

58 

8 

3. 1698, 

0.0280, 

0.8735/ 




59 

DATA (CN( 7 

, J ) , DH < 7 

, J ) ,ETA( 7 

,J) , J*l, 15)/ 



60 

l 

0.3522, 

0.0038, 

0.7310 , 

0.7392, 

0.0078, 

0.8000, 

61 

2 

0.9689, 

0. 0101, 

0.8300, 

1.2109, 

0.0124, 

0.8600, 

62 

3 

1.4089, 

0.0142, 

0.8750, 

1.6056, 

0.0159, 

0.8900, 

63 

4 

1.7609, 

0.0173, 

0.8930, 

1.9367, 

0.0190, 

0.8975, 

64 

5 

2.0948, 

0.0207, 

0.8999, 

2.2000, 

0.0220, 

0.9000, 

65 

6 

2.2889, 

0.0233, 

0.8980, 

2.3949, 

0.0250, 

0.8937, 

66 

7 

2.4471, 

0.0261, 

0.8900, 

2.5001, 

0.0276, 

0.8799, 

67 

8 

2.5175, 

0.0290, 

0.8710/ 




68 

DATA (CN( 8 

, J > , DH ( 8, 

rJ),ETA( 8, 

rJ) »J«1, 15)/ 



69 

1 

0.3522, 

0.0042, 

0.7100, 

0.5808, 

0.0069, 

0.7450, 

70 

2 

0.7575, 

0.0090, 

0.7680, 

0.9330, 

0.0109, 

0.8000, 

71 

3 

1.1801, 

0.0135, 

0.8380, 

1.3915, 

0.0156, 

0.8600, 

72 

4 

1.5671, 

0.0177, 

0.8712, 

1.7609, 

0.0199, 

0.8780, 

73 

5 

1.8660, 

0.0213, 

0.8800, 

1.9897, 

0.0230, 

0.6775, 

74 

6 

2.0601, 

0.0241, 

0.8760, 

2.1131, 

0.0251, 

0.8722, 

75 

7 

2.1652, 

0.0263, 

0.8660 , 

2.2009, 

0.0276, 

0.8600, 

76 

8 

2.2048, 

0.02 83, 

0.8480/ 




77 

DATA < CN< 9, 

p J > , DH ( 9, 

>J),ETA< 9, 

rJ> ,J*1, 15)/ 



78 

1 

0.3522, 

0.0047, 

0.6780, 

0.5278, 

0.0070, 

0.7000, 

79 

2 

0.6340, 

0.0084, 

0.7125, 

0.7922, 

0.0 104, 

0.7350, 

80 

3 

0.9689, 

0.0124, 

0.7690, 

1*1183, 

0.0141, 

0.8000, 

81 

4 

1.1801, 

0.0148, 

0.8060, 

1.3209, 

0.0166, 

0.8225, 

82 

5 

1.4619, 

0.0184, 

0.8395, 

1.5497, 

0.0196, 

0.8450, 

83 

6 

1.6722, 

0.0214, 

0.8470, 

1.7609, 

0.0232, 

0.8445, 

84 

7 

1.8130, 

0.0245, 

0.8330, 

1*6315, 

0.0255, 

0.8235, 

85 

8 

1.8401, 

0.0267, 

0.8080/ 




86 

OATA (CNI10, 

> J>,DH(10, 

J ) ,ETA (10, 

J), J*lt 12)/ 



87 

1 

0.3522, 

0.00 54, 

0.6380, 

0.4574, 

0.0069, 

0.6550, 

88 

2 

0.6167, 

0.0092, 

0.6700, 

0.7218, 

0.0107, 

0.6850, 

89 

3 

0.8279, 

0.0123, 

0.7000, 

0.9330, 

0.0138, 

0.7110, 

90 

4 

1.0567, 

0.0159, 

0.7180, 

1.1493, 

0.0177, 

0.7180, 

91 

5 

1.2148, 

0.0191, 

0.7170, 

1.2505, 

0.0202, 

0.7140, 

92 

6 

1.2784, 

0.02 14, 

0.7000, 

1.2824, 

0.0221, 

0.6890/ 

93 

OATA ( CN ( X li 

J),DH(11, 

J ) , ETA( 11, 

J) , J*l, 9)/ 



94 

1 

0.3522, 

0 . 0061, 

0.6000, 

0.4226, 

0.0075, 

0.6000, 

95 

2 

0.5278, 

0.0093, 

0.6120, 

0.6167, 

0.0108, 

0.6170, 

96 

3 

0.7044, 

0.0124, 

0.6210, 

0.7922, 

0.0140, 

0.6258, 

97 

4 

0.8452, 

0.0151, 

0.6250, 

0.8983, 

0.0164, 

0.6230, 

98 

5 

0.9293, 

0.0177, 

0.6009/ 




99 

END 






100 


IIBFTC LPTDAT 

BLOCK OATA 

COMMON / LTURB/TFFU5),CNU5,15),OH(15, 15 I ,ETA <1 5 , 15 ) , N, NP < 15 ) 
DATA NtNP/ 11.9*15 ,12,9,4*0/ 
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OATA TFF / 

1 145. 725, 

OATA <CN< 1 


0.3682, 
0.7365, 
1.2146, 
1.6201, 
2.0247, 
2.4665, 
2.8166, 
3.3138, 
DATA (CN< i 


1 

2 

3 

4 

5 

6 

7 

8 


1 

2 

3 

4 

5 

6 

7 

8 

0 

1 

2 

3 

4 

5 

6 

7 

8 


0.3682, 
0.7919, 
1.2882, 
1.6937, 
2.0619, 
2.3747, 
2.8720, 
3.3138, 
TA (CN< 3 
0.3682, 
0. 8655, 
1.2519, 
1.6201, 
2.0247, 
2.4302, 
2.7791, 
3.3138, 


OATA (CN( 


0.3682, 
0*6810, 
1.1047, 
1.5090, 
2.0429, 
2.3747, 
2.8720, 
3.3138, 
OATA <CN( 1 


1 

2 

3 

4 

5 

6 

7 

8 

C 

1 

2 

3 

4 

5 

6 

7 

8 


0*3682, 
0.7365, 
1.2882, 
1.7301, 
2.0983, 
2.4332, 
2.9456, 
3.3138, 
TA (CN1 6 
0.3682, 
0.8372, 
1.2882, 
L. 7482 , 
2.2133, 
2.6510, 
3.1384, 
3.3138, 
DATA ( CN ( 1 


1 

2 

3 

4 

5 

6 

7 

8 

D 

1 

2 

3 

4 

5 

6 
7 
6 


0.3682, 
1.0129, 
1.4729, 
1.8409, 
2.1901, 
2.3929, 
2.5583, 
2.6319, 
TA < CN ( 8 
0.3682, 
0.7919, 
1.2337, 
1.6383, 
1.9509, 
2.1537, 
2.2637, 
2.3051, 


88.470, 

102.795, 

116.835, 129.330, 

50.000, 

153.345, 

156.405, 159.780, 

) i OH ( 1,J»,ETA« 


0.0018, 

0.7120, 

0.5336, 

0.0026, 

0.0035, 

0.7472, 

0.9754, 

0.0044, 

0.0051, 

0.7140, 

1.4173, 

0.0056, 

0.00 59, 

0.6850, 

1.7673, 

0.0061, 

0.0062, 

0.6452, 

2.2827, 

0.0061, 

0.0057, 

0. 6000 , 

2.6137, 

0.0053, 

0.0044, 

0.5310, 

2.9456, 

0.0035, 

0*0001, 

0.3850/ 



1 ) , DH ( 2,J),ETA( 2 , J ) , J*1 , 15 )/ 


0.0026, 

0.8000 , 

0.5518, 

0.0039, 

0.0054, 

0.8200, 

1.0672, 

0.0069, 

0.00 80, 

0.8300, 

1.4446, 

0.0087, 

0.00 96, 

0.8100, 

1.8954, 

0.0101, 

0.0104, 

0.7850, 

2.2273, 

0.0107, 

0.0108, 

0.7450, 

2.6229, 

0.0106, 

0.0101, 

0.6800, 

3.0555, 

0.0094, 

0.0077, 

0.5900/ 



n,DH< 3,, 

J ) ,ETA( 3 , J ) , J=1 , 15 ) / 


0.0031, 

0.8000, 

0.5911, 

0.0051, 

0.0071, 

0.8600, 

1.0764, 

0.0087, 

0.0099, 

0.8670, 

1.4354, 

0.0111, 

0.0122, 

0.8720, 

1.8409, 

0.0134, 

0.0143, 

0.8700, 

2.2455, 

0.0152, 

0.0157, 

0.8600, 

2.5956, 

0.0162, 

0.0166, 

0.8300, 

3.0555, 

0.0167, 

0.0164, 

0.7600/ 



J > , OH ( 4, 

J > ,ETA( 4, 

J) , J*1,15)/ 


0.0033, 

0.7995 , 

0.4237, 

0.0038, 

0.0061, 

0.8400, 

0.8837, 

0.0078, 

0. 0096, 

0.8680, 

1.2882, 

0.0110, 

0.0126, 

0.8800 , 

1.7482, 

0.0141, 

0.01 59, 

0.8835, 

2.2091, 

0.0166, 

0*0174, 

0.8800, 

2.6047, 

0.0183, 

0.0191, 

0.8600, 

3.1291, 

0.0195, 

0.0197, 

0.8200/ 



J ) , DH ( 5, 

J ) , ETA t 5, 

J) ,J*1, 15)/ 


0.0036, 

0.7750 , 

0.5065, 

0.0049, 

0.0071, 

0.8480, 

0.9754, 

0.0092, 

0.0119, 

0.8750, 

1.5647, 

0.0141, 

0.0155, 

0.8912 • 

1.9690, 

0.0172, 

0.0181, 

0.8955, 

2.2637, 

0.0192, 

0.02 02, 

0.8961 , 

2.6691, 

0.0214, 

0.0226, 

0.8790, 

3.1846, 

0.0235, 

0.0239, 

0.8600/ 



J ) , DH ( 6, 

t J 1 * ET A ( 6, 

J) , J*l, 15)/ 

0.00 38, 

0.7600, 

0.6164, 

0.0064, 

0.0087, 

0.8450, 

1.1047, 

0.0113, 

0.0130, 

0.8730, 

1.5283, 

0.0152, 

0.0171, 

0.8950, 

1.9509, 

0.0187, 

0.02 09, 

0.9005, 

2*4302, 

0.0226, 

0.0244, 

0.9004, 

2*8619, 

0.0259, 

0 . 02 86, 

0.8900 , 

3.2584, 

0.0303, 

0.0319, 

0.8735/ 



,J),DH( 7 

,J),ETA< 7 

,J> , J*l, 15)/ 

0.00 44, 

0.7310, 

0.7728, 

0.0089, 

0.01 15, 

0.8300, 

1.2659, 

0.0141, 

0.0162, 

0.8750, 

1.6785, 

0.0181, 

0.0197, 

0.8930, 

2.0247, 

0.0216, 

0.0235, 

0.8999, 

2.3000, 

0.0250, 

0.02 65, 

0.8980, 

2.5038, 

0.0284, 

0.0296, 

0.8900, 

2.6137, 

0.0314, 

0.0329, 

0.8710/ 



, J > , DH ( 8 

, J ) , ETA ( 8 

, J ) , J*1 , 15 >/ 

0.0048, 

0.7100, 

0.6072, 

0.0078, 

0.0102, 

0* 7680 , 

0.9754, 

0.0124, 

0.0153, 

0.8380, 

1.4546, 

0.0177, 

0.0201, 

0.8712, 

1.8409, 

0.0226, 

0.0242, 

0.8800, 

2.0801, 

0.0261, 

0.0274, 

0.8760 , 

2.2091, 

0.0285, 

0.0299, 

0.8660, 

2.3009, 

0.0314, 

0.0321, 

0.8480/ 




141.045, 

163.170,4*0./ 

0.7300, 

0. 7300 y 
0.7000, 
0.6730, 
0.6200, 
0.5750, 
0.5000, 


0.8100, 
0.8300 , 
0.8290, 
0.8000, 
0.7600 , 
0.7000, 
0.6450, 


0.8300, 

0.8630, 

0*8700, 

0.8720, 

0.8670, 

0.8500, 

0.8000, 


0.8000, 

0.8600, 

0.8730, 

0.8830, 

0.8830, 

0.8740, 

0.8350, 


0.6000, 

0.8600, 

0.8900, 

0.8940, 

0.8970, 

0.8900, 

0.8671, 


0.8000, 

0.8600, 

0.8900, 

0.9000, 

0.9010, 

0.9000, 

0.8800, 


0.8000, 

0.8600, 

0.8900, 

0.8975, 

0.9000, 

0.8937, 

0.8799, 


0.7450, 
0.8000, 
0.8600, 
0.8780 , 
0.8775, 
0.8722, 
0.8600, 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
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27 
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DATA (CN( 9,J> f DH( 9,J>,ETA{ 9 , J ) , J«1 , 15 )/ 


1 

0.3682, 0.0054, 

0.6780 , 

0.5518, 

0.0080, 

0.7000, 

2 

0.6629, 0.0096, 

0.7125, 

0.8282, 

0.0119, 

0.7350, 

3 

1.0129, 9.0141, 

0.7690, 

1.1691, 

0.0160, 

0.8000 , 

4 

1.2337, 0.0169, 

0.8060 , 

1.3809, 

0.0188, 

0.8225, 

5 

1.5283, 0.0209, 

0.8395, 

1.6201, 

0.0223, 

0.8450, 

6 

1.7482, 0.0244, 

0.8470, 

1.8409, 

0.0263, 

0.8445, 

7 

1.8954, 0.0279, 

0.8330 , 

1.9147, 

0.0289, 

0.8235, 

8 

1.9237, 0.0303, 

0.8080/ 



DATA CCN(10,J),DH(10, 

J > ,ETA{ 1 0 ( 

« J) , J=1 , 12 >/ 



1 

0.3682, 0.0061, 

0.6380, 

0.4782, 

0.0078, 

0.6550, 

2 

0.6447, 00104, 

0.6700, 

0.7546, 

0.0 122, 

0.6850, 

3 

0.8655, 0.0139, 

0.7000, 

0.9754, 

0.0157, 

0.7110 , 

4 

1.1047, 0.0181, 

0.7180 , 

1.2015, 

0.0201, 

0.7180, 

5 

1.2701, 0.0217, 

3.7170, 

1.3073, 

0.0230, 

0.7140, 

6 

1.3365, 0.0244, 

0.7000, 

1.3407, 

0.0251, 

0.6890/ 

DATA (CN(LliJ)f OH 111* 

J ) ,ETA( 1 1, J) ,J=1 , 9)/ 


1 

0.3682, 0.0069, 

0.6000 , 

0.4418, 

0.0086 , 

0.6000, 

2 

0.5518, 0.0106, 

0.6120 , 

0.6447, 

0.0123, 

0.6170, 

3 

0. 7 365 , 0.0141, 

0.6210, 

0.8282, 

0.0159, 

0.6258, 

4 

0.8837, 0.0172, 

0.6250, 

0.9391, 

0.0186, 

0.6230, 

5 

0.9715, 0.0201, 

0.6009/ 




END 
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DYNGEN Subroutine Functions and Their Descriptions 


AFQUIR 

ATMOS 

BLKCMP 

BLKFAN 

BLKINT 

CMBDT 

COAFBN 

COCOMB 

COCOMP 

CODUCT 

COFAN 

COHPTB 

COINLT 

COINTC 

COEPTB 

COLPTB 

COMK 


COMNOZ 

CONDIV 


general quadratic interpolation routine 
1962 U. S. Standard Atmosphere Table 

performance data for inner-compressor map (BLOCK DATA) 
performance data for fan map (BLOCK DATA) 

performance data for intermediate-compressor map (BLOCK DATA) 
BLOCK DATA for combustor 

performs afterburning calculations; may use either T7 or WFA as main 
parameter 

uses BLOCK DATA to perform combustor calculations; may use either T 4 
or WFB as main parameter 

uses BLOCK DATA to perform inner-compressor calculations 

performs duct and ductburning calculations for turbofans; may use either 
T24 or WFD as main parameter 

uses BLOCK DATA to perform fan calculations 

uses BLOCK DATA to perform inner-turbine calculations (not used in 
engine configurations c and g) 

determines ram recovery and performs inlet calculations 

uses BLOCK DATA to perform intermediate-compressor calculations 

uses BLOCK DATA to perform intermediate-turbine calculations (not used 
in engine configurations b, e, and h) 

uses BLOCK DATA to perform outer-turbine calculations 

performs gas- mixing calculations if in mixed-flow mode; at design points, 
calculates areas either from an input static pressure PS55 or from an 
input Mach number AM55 if PS55=0; at off-design points, calculates 
static pressures and Mach numbers from design areas; calculates 
ERR (5); rescales pressure ratios for mixed-flow turbofans to match 
duct and core static pressures just prior to mixing; also calculates 
afterburner entrance area A6 as a function of afterburner entrance 
Mach number AM6 

performs main nozzle calculations 

performs nozzle calculations for a convergent-divergent (C-D) nozzle 
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CONOUT 

CONVRG 

DERIV 

DISTRB 

ENGBAL 

ERROR 

ETAAB 


FASTBK 

FCNTRL 

FRTOSD 

GEN2 


GUESS 

HPTDAT 

INDUMY 

IPTDAT 

LPTDAT 

MATRIX 

NOZCTR 

OUTPUT 

OVERFL 


PARABO 


controls and prints the controlled output variables 
performs nozzle calculations for a convergent nozzle 
computes time derivatives 

user-written subroutine which provides transient inputs 

main subroutine; controls all engine balancing loops; checks tolerances 
and number of loops and loads matrix; calls PUTIN 

controls all printouts if an error occurs; prints names of subroutine where 
error occurred and also prints values of all variables in main commons 

generalized afterburner performance BLOCK DATA as a function of fuel- 
air ratio with correction factors for off-design afterburner entrance 
pressure and Mach number 

dummy routine to transfer values 
user-written fuel control subroutine 
dummy routine to transfer values 

dummy main program to initiate calculations and cause input of controlled 
output variables (Because of looping between subroutines, control is 
never transferred back to this routine. ) 

determines initial values of independent variables at each point 

performance data for inner-turbine map (BLOCK DATA) 

makes intermediate compressor not change air conditions for engine con- 
figurations e and h 

performance data for inter mediate-turbine map (BLOCK DATA) 
performance data for outer-turbine map (BLOCK DATA) 
solves error matrix 

user-written nozzle control subroutine 

prints output except for controlled output; prints main commons after 
design point 

IBM 7094 system routine for flagging overflows (User’s system may have 
similar routine with different name. This routine is called in ATMOS 
as OVERFL(J), where if J=1 there is overflow and if J=2 there is no 
overflow. ) 

parabolic curve-fit routine 
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PERF 

PROCOM 

PUTIN 

RAM 

RAM2 

ROLL 

SEARCH 

SYG 


THERMO 

THCOMP 

THTURB 

WDUCTI 

ZERO 


calculates performance after engine is balanced 

calculates thermodynamic gas properties for either air or a fuel-air mix- 
ture based on JP-4 

reads input data; controls loop on static pressures for mixed-flow turbofan 

calculates ram recovery defined by MIL-E-5008B specifications 

calculates special cases of input ram recovery as a function of flight Mach 
number 

saves past values of dynamic variables needed for calculating derivatives, 
etc. 

general table lookup and interpolation routine to obtain data from BLOCK 
DATA subroutines 

controls printing from UNIT08 (Throughout the program and particularly in 
ENGBAL, certain messages, variables, and matrix values are written 
on UNIT08 as an aid in determining why an error occurred or why a point 
did not balance. These values are printed out if subroutine ERROR is 
called and IDUMP is greater than zero, or after a good point if 
IDUMP=2. ) 

provides thermodynamic conditions using PROCOM 
performs isentropic calculations for compressors 
performs isentropic calculations for turbines 

performs third-stream (wing) duct calculations (not used in two-stream 
engines) 

zeros nearly all of common and certain controls 


Example Case - Three- Spool Turbofan 

In order to aid the user in understanding all that must be provided so that DYNGEN 
can be used, a three-spool turbofan example case is shown. As indicated in table I, all 
BLOCK DATA subroutines are needed for this engine configuration (a). The BLOCK 
DATA for the engine simulated are listed on pages 93 to 100. Next, subroutines 
DISTRB, FCNTRL, and NOZCTR must be written. For this example, an open-loop fuel 
flow step is to be simulated. Subroutine DISTRB is written as follows: 
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ilBFTC OISTRB 

SUBROUTINE DISTRB 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

IIDfS , JDE S ,KDES .MODE ,INIT , IDUMP .IAMTP , IGASMX, 
21 DBURN. IAFTBN. I DCD ,IMCD . IDSHOC. IMSHOC .NOZFLT . ITRYS » 
3 LOOPER.NO MAP .NUMMAP.MAPEDG.TOLALL , EPRI 9) 

COMMON /ALL!/ 

LPCNFGU.PCNCGU. T4GU .DUMC1 .DUMD2 .CELFG .DELFN .DELSFC, 
2ZFDS tPCNFDStPRFDS » ETAF DS , W AFDS .PRFCF ,ET AFC F , WAFC F , 
3ZC0S , PCNCD S.PRCDS , ETAC CS , W ACDS .PRCCF »E T ACC F . W ACCF , 
4T4DS »WFBOS ,DTCODS,ETA8DS,WA3CDS,CPCODS,DTCOCF,ETABCF, 
5TFHPDS.CNHPDS.ETHPDS.TFHPCF.CNHPCF.ETHPCF .DHHPCF. T2DS , 
6TFLPDS.CNLPDS, ETLPDS .TFLPCF .CNLPCF, ETLPCF .DHLPCF, T21DS , 
7T24DS » WFDCS , DTDUDS , ET ADCS , W A23DS , DPDUDS .DTDUCF, ET ADCF , 


8T7DS 

.WFAOS » OTAFOS » ETA ACS 

, WG 6 CDS 

, CP AFDS 

.DTAFCF 

, ETAACF, 

9 A 55 

,A25 » A 6 ,A7 

♦ A 8 

, A9 

» A28 

9 A29 , 

SPS55 

» AM 5 5 , C VDNOZ i CVMNOZ 

, A 8 SAV 

, A9SAV 

. A28 SA V 

, A29SAV 

COMMON 
IT 1 

/ AL L2 / 

,Pl » H I i SI 

»T 2 

» P2 

»H2 

t S 2 

2 T 21 

i p 2 1 »H2I » S2 1 

t T 3 

, p 3 

»H3 

9 S3 

3 T 4 

,P4 ,H4 ,S4 

t T 5 

t P5 

»H5 

t S5 

4 T 55 

» P5 5 » H55 » S55 

t BLF 

. BLC 

»BLDU 

, BLOB 

5CNF 

» PR F » ETAF t WAF C 

,WAF 

» WA3 

,WG4 

9 FAR4 

6 CNC 

» PRC » ETAC » WAC C 

t W AC 

i ET AB 

. DPCOM 

9 DUMP 

7CNHP 

, ETATHP.DHTCHP ,DHTC 

t 0 LHP 

9 InG 5 

,FAR5 

,CS • 

8 CNLP 

, ETATL P.DHTCLP » DHTF 

,BLLP 

, WG55 

»F AR55 

9 HPEXT 

9AM 

,ALTP ,ETAR , ZF 

, PCNF 

f zc 

,PCNC 

, WFB 

$TFFHP 

» TF FLP . PCBLF .PCBLC 

f PCBLDU 

, PC BLOB 

f PCBLHP 

tPCBLLP 

COMMON 

1XP1 

/ALL3 / 

. XWAF • XWAC ,XBLF 

t XBLDU 

t XH3 

»DUM SI 

9 DU MS 2 

2XT2L 

» XP 2 1 f XH2 1 » XS2 I 

f T 23 

t P23 

»H 23 

f S23 

3T24 

. P24 ,H24 . S24 

» T25 

9 P25 

,H25 

, S25 

4T28 

. P28 »H28 » S2 8 

» T 29 

9 P29 

,H29 

9 S29 

5WAD 

, WFD » WG24 » FAR 2 4 

t ETAD 

t DPDUC 

.BYPASS 

9 DUMS3 

6TS28 

, PS28 » V28 ,AM28 

, TS29 

9 PS29 

» V29 

9 AM29 

7XT55 

» XP55 » XH55 » XS5 5 

t XT25 

* XP25 

,XH25 

9 XS25 

8 XWFB 

. XWG 55 . XFAR55 » XWFD 

, XWG24 

, XFAR24 

,XXP1 

t DUMB 

9T6 

t P 6 »H 6 , S 6 

,T7 

9 P7 

»H7 

9 S7 

*T 8 

,P 8 ,H 8 , S 8 

9 T9 

1 P9 

»H9 

» S9 

COMMON 

1WG6 

/ALL4 / 

,WFA » WG7 »FAR7 

,ETAA 

9 CP AF T 

, V55 

, V25 

2PS6 

. V 6 i AM 6 » TS7 

t PS7 

tV7 

» AM7 

» A M 2 5 

3TS8 

,PS 8 ,V 8 » AM 8 

9 T S9 

9 PS9 

»V9 

, AM9 

4VA 

,FRD » V JD » FGMD 

tV JM 

9 FGMM 

,FGPD 

, FGPM 

5FGM 

, FGP » WFT . WGT 

t F ART 

9 FG 

»FN 

»SFC 

6WA32 

.OPWGDS.DPW ING , WA32DS 

9 A 3 8 

, AM38 

» V38 

9 T38 

7H38 

» P38 » T S38 »PS38 

9 T 39 

» H39 

. P 39 

9 TS39 

8V39 

f AM39 » A39 , BPR I NT 

9 WG37 

rCVDWNG 

.FGMWNG 

9 FGPWNG 

9FNWING 

,,FNMAIN,FW0VFN,PS39 

9 FFOVFN 

1 , FCOVFN 

l.FMNOFN 

I 9 FMOVFD 

$VJW 

,T22 » P22 * H22 

9 S 22 

9 T50 

,P50 

9 H50 

COMMON 
1 S 50 

1 /AL L5 / 

t WA22 .ZI * PCN I 

, C N I 

, PR I 

.ETA I 

9 WAC I 

2TFFIP 

,CN I P . ETATI P . DHT C IP 

t DHTI 

9 BLIP 

.PCBLI P 

, PCNIGU 

3Z IDS 

» PC N ID S» PR I DS » ETA I CS 

f W A IDS 

, PR ICF 

.ETAICf 

9 W A I C F 

4TFIPDS 

>»CNIPDS»ETIPDS»TFIPCF 

9 CN I PC F 

tETlPCF 

.DHIPCF 

, WA ICDS « 

5WAI 

» PCBL I » BL I » T 22DS 

9 WA21 

9 WG50 

.FAR50 

t A24 

6AM23 

, DUM SP L » F XFN2 M , F XM 2CP 

1 , AFTFAN. PUNT 

. PCBL I C 

I 9 P6DS AV 


7AM6DS V» ETAASV.FAR7SV.T4PBL ,T41 * FAN , I SPOOL 

SSSS® 



COMMON /DYN/ I T R AN, T I ME > 0 T , TF , J TRAN ,NSTEP ,T PR I NT , DTPR NT 

COMMON /RPMS/ XNHPDS , XN I P DS , XNLPD S , PM I HP, PM 1 1 P , PM I LP 

WF8= 1 .858 

RETURN 

END 


Shown in subroutine DISTRB are COMMON blocks ALL1, ALL2, ALL3, ALL4, 
ALL5, DYN, and RPMS. All these COMMON blocks can be used to transfer information 
to DYNGEN. COMMON block WORDS can be used to transfer the subroutine name to 
subroutine ERROR if an error occurs. COMMON block DESIGN transfers program in- 
dices (table III) into DYNGEN if a change is required as a transient is run. An example 
of this will be shown later. COMMON blocks ALL1 to ALL5 transfer time-varying 
variables into DYNGEN as discussed earlier. COMMON blocks DYN and RPMS trans- 
fer data about the transient solution to be run (table V). All these COMMON blocks are 
shown here for illustration purposes although in this example only fuel flow is changed; 
thus, only COMMON block ALL2 is needed. 

Since this example is an open- loop fuel flow step, the fuel control (FCNTRL) and 
main nozzle control (NOZTR) subroutines are not used. However, they must be written 
as shown here since they will be called by DYNGEN when it is running in the transient 
mode. 

$1 BFTC FCNTRL 

SUBROUTINE FCNTRL 

RETURN 

END 


SIBFTC NCZC T P 

SUBROUTINE NCZCTR 

RETURN 

END 


Next, the NAMELIST input is shown. The first case in DYNGEN, as in GENENG, 
must always be a design case (thus, IDES=1). All design inputs are shown; their ex- 
planation is found in tables II and III. The last four lines of the NAMELIST input contain 
the data that must be added to provide information to DYNGEN for transient capability. 
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(These variables are explained in table V. ) Note also that SI=. TRUE. ; thus, the output 
will be in SI units. The user must be careful here if he specifies SI units to be used. 
Since DYNGEN does most of its calculations in SI units if this system of units is speci- 
fied, the NAMELIST data must also be in SI units. The BLOCK DATA for the compo- 
nents, however, can be in either set of units since the maps are scaled by DYNGEN; 
however, if the BLOCK DATA are in English units and the simulation is run in SI units 
(or conversely) the correction factors for the weight flows may be quite large. 


tOATAIN AM*0.0, AL TP-0.0, IAFTBN-O, IDBURN-0, AM23*. 18.AN55*. 238./ 

N0ZFIT=0* I DUMP* It IDC 0-0, IMCD-0, IGASHX=0 , MODE -0 ,T0LALL*. 010 * ITRYS*400, I0ES- L» / 
FXFN2M-.FALSE. .FXH2CP-.FALSE. , AFTF AN-. FALSE. *0WSP^.FM.SE. .PRFOS-1.4. / 
ETAFDS-.B8,WAFCDS*280. 1707 ,PCNFDS-100.0, PCBLF-0.0, PRIDS*1. 571, HAICDS*140.B, / 

ETAIDS*.87,PCNIDS*100.0,PCBUD*.5,ETA8DS*.983,DPCOOS=.05,DP»IGDS*=.10,/ 

PRC0S=7.273,PCNCDS*100.0,ETAC0S-.66,PCBLO0.0, DPDUDS*.05»ETHPDS*.9,ETIP0S*.9,/ 

E?LPOs'.9,OELSFC.l.O f DELF N -1.0,DELFG-l.0,PCBLOB»O.O,T4OS-1422.22,IAHTP.2,/ 

DELT1*17.2«TFHP0S*50.0»CNHPDS=2.0,TFIPDS=120.0,CNIPDS*2.2,TFLPDS*130.0,/ 

CNLPOS*2.3 ,ZFDS=. 83333333 * ZI DS*. 83333333 >ZC0S” .8 1433225, CVDN0Z*.985,Z 
CVMNOZ*. 985, CV0WNG*. 985, FAN*. TRUE., I SPOOL-3, XNHPDS-10000., XNLPDS=5000. , / 
XNIPDS*7500.,PMIHP*35.25,PMILP*70.50,PMI IP*52. 88 , VFAN*. 142, V INTO*. 142 ,/ 

VCOHB=. 142, VHPTRB *. 057 , VLPTRB*.057 ,VIPTRB*.057 , VAFTBN-.283 , VFOUCT-. 283 , / 
VHOUCT*. 283, VCOMP*. 142, SI*.TRUE. ,OPAFOS*O.Ot/ 


The first output DYNGEN provides is shown next. This is the design case for the 
three-spool turbofan. The fuel flow (WFB) is 1. 858 kg/sec. The means of specifying 
the output shown is discussed in the main-text section Output Specification. This is the 
same output given by GENENG. One difference is that DYNGEN tells the user that 
"THE OUTPUT IS IN SI UNITS. ” (If SI had been set . FALSE, in the NAMELIST input, 
DYNGEN would specify that ’’THE OUTPUT IS IN ENGLISH UNITS. ") 


FAN DESIGN 
MIDDLE SPOOL DESIGN 
COMPRESSOR DESIGN 
INTER DUCT DESIGN 
COMBUSTOR DESIGN 
H.P • TU R 6 T N E DES IGN 
UP. TURBINE DESIGN 
L.P. TURBINE DESIGN 
DUCT NOZZLE DESIGN 
TURB INE AREA DESIGN 
NOZZLE DESIGN 
OUTPUT 


P RF CF : 
P R I CF ■ 
PRCCF; 
A38 - 
WA3CDS 
CNHPCF ■ 
ChIPCF 
CN L D CF 
A28: 
A 55 
A 8 

AM= 0 


= 0*13000000E+01 
e 0.95166666F+00 
« 0-89614286F+00 
0*221 592B4E+90 
- 0. I5101303E-02 
= 9*754246 62 F+00 
= 0* 744202 1 7E + 00 
t 0*7 4 736 38 9E +09 
■ 0. 3466b393E+00 
* 0* 7 3676 63 9E +90 
■= 0.28800043E+00 
, AL TP = 


ETAFCF* 0. 10009900E+01 WAFCF ; 
ETA ICF= 0*988 63 635E + 00 WAICF; 
ETACCF- 0*1 0000000E+0 1 WACCF 
AM 38 = 0. 10900000E + 01 A39= 

ETABCF= 0 *9830903 0E+09 
T FH PC F* 0*22059 A3 LE + 05 ETHPCF 
t p I PC F* 0.23704784E+95 ETIPCF 
T FL PC F* 0 .160A9822E+05 ETLPCF 
A M2 8= 0 .65148608E+00 A29 

A M5 5= 0.23826636E+00 
AM 8= 0*1 00 00 000 E+ 01 A9 

0. T 4= 1422*22 


= 0.466951 16E+00 T20S= 9* 30534883E+03 

: 0.46933333E+09 T22DS= 0. 3403563 OE+93 
= 0. 48218785E+00 T210S= 0* 3 S406999E+93 

0.22159284E+00 AM39= 0* 19000000E+01 

S C. 10009000E+01 DHHPCF = 9* 40061 476E +04 
= 0* 10000000E+01 DHIPCF* 0. 4 2 1 4B 784E +04 
* 0. 10201339E + 01 DHLPCF- 0 . 5 6982 80 0E +-04 
= 0. 3A868393E+00 AM29* 0* 6 51 A8608E+00 


0. 288009A3E+00 


AM 9= 0. L000000OF+01 
ETAF= 1.0000 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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THE (JUTPLT is IM SI UMTS 

P CNF 

0. 100009E+03 
PCN I 

0.100000E+03 

PCNC 

C. 100000E+03 
T 2 

0. 3053496+03 
T3 

C. 7284726 +33 
PC3LHP 

0. 




W A3 

C.906864E+02 

TFFHP 

0.500000E+02 
TFF IP 

C. 1200006+33 
TFF LP 

0.130000E+03 

ETAB 

0.9830006+00 

WAD 

0.907927E+32 

ETAF 

C. 880000E+00 
T 6 

C. 96 84 74E + 33 
T 7 

Q.968474E+03 
p S8 

0* 1 35 7596 + 06 
PS2 8 

0. 101325E + 06 
BPP INT 

C. 1000006+01 
BYPASS 

C. 509586E+09 
PCBL F 

C.500000E+00 

CVDWNG 

C.9850D0E+00 

FFOVFN 

0. 178945E+00 
CVMNOZ 

C. 985000E+00 


MAIN SONIC CONVERGENT NOZZLE 
DUCT SUBSONIC CONVERG. NOZZLE 


CONVERGED AFTER L LOOPS 


CNF 

0. 100000 E +01 

CNI 

0. 1 000006+ 01 

CNC 

0. 1000005+0 1 
P2 

0. 101325E+ 06 
P3 

0* 1 62 082 E+ 07 
BL HP 

0* 

WFB 

o. i85aaoE+oi 

CNHP 

0* 200000 E+ 01 
CNI P 

0*2200006+01 

CNLP 

0. 230000 E+ 01 
PCBLDU 

0. 

WFO 

0. 

ETA! 

0* 870000E+00 
P6 

0. 249633E+ 06 
WF A 

0. 

AM8 

0. 1000006+01 
AM28 

0. 651486 E+ 00 
DPCOM 

0* 5C9000 E— 01 

HPEXT 

0. 

WG3 7 

0* 906864E+02 
FGMWNG 

0. 3 246 04E + 05 
FWGVFN 

0* 290084E+00 
VJM 

0.556261 E+03 
FG=1 1 5629* 31 


ZF 

0*8333336+00 
Z I 

0.833333E+00 

zc 

0* 8 14332E+0 0 
T 22 

0*3403566+03 

PC8LF 

0. 

PCBL I P 

0* 

WG4 

0*9 25444E + 02 
DHTCHP 

0*2403696+03 

OHTCIP 

0*9272736+02 
DHTCL P 

0*978677E+02 

ETAD 

0* 

WG24 

0*90792 7E+02 
ETAC 

0. 860000E +00 
PS6 

0*2404336+06 

WG7 

0*9254446+02 

V 8 

0* 564 73 2E+03 

V 28 

0* 231367E+03 
DPW ING 

0.1000006+00 
W FT 

0. 18580DE+01 
VJW 

0 • 35794 IE +0 3 
FGPWNG 
0* L08184E+04 
FCOVFN 

0.5309716+00 
C VDNOZ 

0.985000E+00 


PRF 

0 . 1400006+01 
PR I 

0. 157100E+M 
PRC 

0.7273006+01 

P22 

0. 1418556 + 06 
BL F 

0. 

BL IP 

0. 

FAR4 

0.2048 82 c -0l 
OH TC 

0.3418576+06 

DHTI 

0* 106107E+06 
OHTF 

0. 1033356+06 
DPDUC 

0.5000006-01 

FAR24 

0. 

ET AT HP 

0* 900000E +00 
AM6 

0.238266E+00 
FA P.7 

0*2048826-01 

PS9 

0* 135759 E +06 
PS 29 

C* 101325E+06 
PS 38 

0. 106207E+06 
WGT 

0 • 274024 6 + 03 
PS 39 

0.1062076+06 

FNWING 

0. 335422 E + 05 
FMNOFN 

C. 7099166+00 
VJO 

0.2278966+03 
FN=l 15629. 31 


W AFC 

0.2801 71E+03 
WAC I 

0.1408006+03 
W ACC 

0.4821886+02 
T 2 1 

0.394070E+C3 

PCBLC 

0. 

PCBLLP 

3. 

T 4 

0.1422226+04 
T 50 

0.1 14429E +04 
T 5 

0.1055876+04 
T 55 

0 *9684746 + 03 
T24 

0.3403556+03 

T 25 

0.3403556+03 

ETfiTjp 

0.900000E +00 

V 6 

0.143982E+03 

FTAA 

0. 

A M9 

0*10000 06 +C1 
AM29 

0 .6514866+00 
AM38 

0. 1 000006+01 

V A 

0. 

AM39 

0.1000006+01 
FNMA IN 
C.82087IE+05 
fnovfd 

0. 1 OOOOOE + O l 
FGM 

0.1046306+06 


WAF 

C. 2721666+03 

WAI 

0. 181373E+ 03 
WAC 

C. 90 68 64 E+ 02 
P21 

0. 222 8546+ Q6 
BLC 

0. 

BL LP 

0. 

P4 

0. 153978E+07 
P50 

0. 5401 42E+06 
P 5 

0. 3712636+06 
P55 

0. 249603E+ 06 
P24 

0. 134762E+06 
P25 

0. 134762E+06 
6TATLP 

0* 9000006 + 00 
WG6 

0. 925444E+02 
DPAFT 

0. 

V9 

0. 5647326+03 
V29 

0. 23 L 367E+ 03 
V 38 

0. 3633926+03 
FPD 

0. 

V39 

0.363392E+03 

P28 

0. 1347626 + 06 
P 38 

0. 2005696+06 
FGP 

0. 109988E+ 05 
SFC* 0.05785 


Following the design-case output, a list of COMMON blocks ALL1 to ALL5 is 
given. The numbers presented in this printout can be associated with their variable 
names by comparing the output locations with the list of COMMON blocks ALL1 to ALL5 
in subroutine DISTRB. The COMMON block printout occurs only at the design point. 
Also, on the same line as the word COMMON, eight variables ?re printed; they are ZF, 
PCNF, ZI, PCNI, ZC, PCNC, T4, and MODE. 


COMMON 

0. 100000E +03 
0. 833333F +00 
0.814332E+00 
0 . 142222E +04 
3.5000006 +02 
0.1300006+03 
0. 

0. 

0.7367665+00 

0.2404336+06 

0.305350E+03 
0 * 394 0 70E + 03 
0.1422226 +0V 
0 .9684746+03 
0 • 100093E +01 
0. 100000E+31 


0* 833333E + 00 

0. 100000E+03 
0. 1 00 00 0 E + 03 
0. 100000E+03 
0. 185 8006 + 01 
0. 2000006+01 
0.2 30 000 E + 01 
0. 

0. 

0. 

0.2 38266E + 00 

0. 101 325E+06 
0.2228546+06 
0. 153 9786 + 07 
0.249 603E+06 
0. 1400006+01 
0. 727 3006+01 


0. 100000E+03 

0. 142222E+04 
0. 1 400006 + 0 L 
0. 727300E+01 

0. 

0* 9 OOOOCE + OO 
C. 9 00000 p +00 

0. 

0. 

0. 736766E+00 
0. 985000E+00 

0. 305399E+06 
0.394677E+06 
0. 158403E+07 
0. 1032736+07 
0* 88000CE +00 
0. 8600 OOE + OO 


0. 8333336+00 

C. 100000E+03 
C* 88 00006 + 00 
0. 86 0000 E + 00 
0. 98 3000E+00 
0. 220594E+05 
0. 1604986 + 05 
0. 

0. 

0. 736766 E+ 00 
0. 98 5003E+00 

0* 67 1 7 78 E + 04 
0.674817 6+04 
0. 76 4 7 12 E+04 
0. 77 03 89 E+ 04 
0.2801 71E+03 
0. 482188E+02 


0. 100000E+03 

0 . 

0.272166E+03 
0.9068646+02 
0. 1510136-02 
0 . 75424 7E +00 
0. 7473646+00 
0. 118079E-01 
0. 1153846-01 
0 • 288000E + 00 
0. 

0. 305349E+03 
0.728472E+03 
0 • 105587E +04 

0. 

0.27 2 166E + 03 
0.9068645+02 


0.8143326+00 

0. 1000006+01 
0. 1000006+01 
0.8961436+00 
0.5000 006-01 
0. 1000006+01 
0. 1020 136 + 01 
0. 5000006-01 
0. 

0. 2880006+00 

0. 

0. 1013256+06 
0. 1620826+07 
0. 3712636+06 

0. 

0.9068645+02 
0. 983000 e +00 


0.1000006+03 

C. 100000E+01 
0. 1000006 + 01 
0.1000006+0 1 

0. 

0*4006156+04 
0. 5698286 + 04 

0. 

0. 

0. 3486846+00 

0. 

0. 305399E+06 
0. 7435386+06 
0. 1 136065 + 07 

0. 

0.925444E+02 
0. 5000006-01 


0. 1422225+04 

0. ICOOOCE +01 
0.4669516+00 
0.4821886+00 
0. 98 300C5 + 00 
3. 30 5349E+03 
0. 39407 CF + 03 
0. 

0. 

0. 348684E+00 

0. 

0.6717776+04 
0.6817385+04 
0. 7691 986+04 

0. 

0. 20408 26-01 
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0. 200000E+01 
0*2300006+01 

0. 

0.500000E+02 

0* 10 1 325E+06 
0.394070E+03 
0.340355E+03 
0.340355E+C3 
0.907927E+0 2 
0 ♦ 313697E *03 
0 *9684746+03 
0* 1850OOE *01 
0*9684746+03 
0 .968474E *-03 

0.925444E+02 
0* 240 433E+06 
0*830758E+03 

0* 

0* 104630E +06 
0*9068646+02 
0* 394677E *06 
0.363392E+03 
0 * 335422E >05 
0*3579416+03 

0. 768077E+04 
0. 120000E *03 
0.8333336+00 
0-120000E+03 
0* 181373E+03 
0.180000E *00 
0-100000E+01 


0. 900 OOOE + OO 
0* 9 00 OOOE+OO 

o. 

0* 130000E+03 

0* 272 166E+03 
0* 222 854E+06 
0. 1 34 762 E ♦ 06 
0- 134762E + 06 

0« 

0. 101 325E+ 06 
0. 249 603E + 06 
0*9254446+02 
0.249 6036+06 
0* 249 603E+06 

0* 

0*143 982E ♦ 03 
0. 135 759E+06 

0* 

0* 10998**EO5 
0* 100 000 "4-00 
0* 200 569E+06 
0* iOOOOOE + Ol 
0* 820 871E + 05 
0* 340 356E + 03 

0. 181 373E+03 
0. 220000E+01 
0.100000E+03 
0* 220 0006+01 
0. 500 0006+00 
0* 

0* IOOOOOE+Ol 


0.240369E+03 
0* 978677E <-02 
0. IOOOOOE+Ol 

0* 

0. 906864E+02 
0* 394677E+06 
0. 340 535E+06 
0* 34053 5E+06 
0*90792 7E+02 
0* 2313676+03 
0. 103273E+07 
0* 204882E-01 
0* 10327 3E ♦07 
0* 103273E+07 

0.925444E+02 
0* 238266E+00 
0. 564732E+03 
0. 227896E+03 
0. 185800E+01 
0. 1 OQOOOE+OO 
0* 328590E+03 
0. 221 593E 4-00 
0. 2S0084E+00 
0. 141 855E 4-06 

0* 833333E+00 
C.900 0 00E + 00 
0. 157 l OOE+O 1 
0* 9000 OOE 4-00 
0* 906864E 4-02 
0* 

0* IOOOOOE+Ol 


0.341857E+06 
0. 103335E+06 
0. 833333E4-00 

0* 

0* 

0. 674817E4-04 
0. 674485E4-04 
0.674485E+04 

0* 

0* 65 1486E4-00 
0* 770389E4-04 

0. 

0. 77 0 3 89 E4-04 
0* 770389E4-04 

0* 2048 82 E- 0 1 
0* 96848 1 E4-03 
0* 1000 00E+01 
0* 2069 1 3E4-05 
0.274024E4-03 
0. 80 78 08E-02 
0* 106207E4-06 
0* iOOOOOE+Ol 
0. 106207E4-06 
0* 3405376+06 

0. 100000 E+03 
0*92727364-02 
0* 8700 OOE+OO 
0.20 7048E4-05 
0. 340356E+03 
0* 

0* 


0* 

0* 

0. 100000E4-03 

0* 

0* 

0.340355E4-03 
0* 3403556+03 
0.340355E4-03 

0 • 

0* 313697E+03 
0. 340355E+03 
0.907927E+02 
0.968474E4-03 
0.968474E+03 

0 • 

0.2496UE + 06 
0.830758E4-03 
0 * 556 26 IE 4-0 3 
0*6626746-02 
0*22159364-00 
0.394070E4-03 
0*9068646 4-02 
0* 178945E4-00 
0*67301464-04 

0* 100000E4-01 
0. 106107E+06 
0* 181373E4-03 
0* 744202E+00 
0.906864E4-02 
0* 

0* 


0*92544464-02 
0.9254 44E4-02 
0. 814332E4-00 
0* 

0* 74353864-06 
0* 141855E+06 
0* 134762E4-06 
0.1347626+06 
0.5000 OOE-Ol 
0* 1013256+06 
0. 134762E+06 
0. 

0* 249603E+06 
0. 2496 0364-06 

0* 

0.138141E-02 
0.135759E+06 
0* 5L4788E+05 
0.115629E+06 
0* 100000 E+01 
0* 3946776+06 
0*9850006+00 
0. 53097LE+00 
0* 114429E+04 

0* 1571 OOE + Ol 
0* 

0.951667E+00 
0. IOOOOOE + Ol 
0.925444E+02 
0* 

0* OOOOOOE-38 


0*2 0488 2E— 01 
0.204882E-01 
0.100000E+0? 

0. 

0* 

0.340537E+06 
0.340535E+06 
0* 340535E + 06 
0* 500586E+00 
0.231367E+03 
0* 34053 5E + 06 
0* 10132 5E+06 
0.103273E+07 
0. 1 03273E+07 

0.143982E+03 
0* 22761 5E-05 
0. 564732E+03 

0* 

0.115629E+06 
0* 363392E+03 
0* 2 00569E + 06 
0*3 24604E + 05 
0* 7099 16E + 00 
0.540142E+06 

0. 870000E+00 

0. 

0*9 88636E + 00 
0*42148 8E + 0 4 
0* 20408 2E-0 1 
0* 500000E + 00 
0*0000006-38 


0. 35041 5E+03 

0. 

0* 185800E+01 

0* 

0* 

0.67301 3E+04 
0* 674485E + 04 
0* 67448 5E+04 
0. 

0*6514866+00 

0.6744856+04 

0* 

0. 77038 9E+04 
0.770389E+04 

0* 

0. 189884E+00 
0* IOOOOOE+Ol 
0*9916976+04 
0* 57847 CE-Oi 
0.394070E+03 
0*3285906+03 
0*10018 4E +04 
0. IOOOOOE+Ol 
0*12421 76+07 

0*1408006+03 
0. 100000E+03 
0* 46933 3E+00 
0. 140800E+03 
0*94518 IE-05 
0. 1000006 + 0 1 


Next, NAMELIST data are again supplied to DYNGEN so that an off- design case is 
run. Since ITRAN is set equal to 1, the off-design point is also the initial condition for 
the transient. In this case the WFB is set equal to 1.486 kg/sec and the off-design 
point is run by specifying MODE and WFB (table IV). Also specified are DT, DTPRINT, 
and TF (table V). 

$DATA IN M0DE= 2 » I T RAN = 1 , DT = . 1 0 0 , DTPRNT= . 1 00 ,TF= 3. 0 , DE LT 1 = 1 7. 2, W F B= 1 .486 $/ 


The DYNGEN transient output is now given. The first point is the initial condition 
and is indicated by TIME=0. at the top of the printout. The fuel flow is 1.486 kg/sec as 
specified. Also DYNGEN again specifies that the output is in SI units. 


TIME- 0* 


OUTPUT 

THREE SPOOL ENGINE 
THE OUTPUT IS IN SI 


AM- 0* 


UNITS 

PCNF 

0*9357246+02 

PCNI 

0* 9450 1 8E +02 
PCNC 

0*94742 1E+02 
T2 

0. 30 5349E + 03 
T3 

0.699518E+03 

PCBLHP 

0* 

WA3 

0*80201 7E+02 
TFFHP 

0* 5 00680E +02 
TFFIP 

0. 12051 0E + 03 
TFFLP 

0. 130926E+03 


ALTP- 


CNF 

0*9357246+00 

CNI 

0* 95072 9E+00 
CNC 

0*9585346+00 

P2 

0. 101325E+06 
P3 

0* 138566E+07 
8LHP 

0. 

WFB 

0* 148600E+01 
CNHP 

0. 195436E+01 
CNIP 

0.214746E+01 

CNLP 

0* 22246 8E+01 


0* T4= 


ZF 

0 • 826087E+00 
ZI 

0* 829649E +00 
ZC 

0.793836E+00 
T 22 

0*336 27 9E +03 
PCBLF 

0* 

PCBLIP 

0. 

MG4 

0*8 16877E+02 
DHTCHP 

0*2390876+03 

DHTCIP 

0*9 28167E + 02 
DHTCLP 

0 *967787E+02 


1336.92 


PRF 

0. 1354046+01 
PR I 

0. 152179 E+Ci 
PRC 

0*663671E+Oi 

P22 

0« 137198E+06 
BLF 

0* 

BLIP 

0. 

FAR4 

0*185283 E-01 
OHTC 

0.320899E+06 
OHT I 

0.997759E+05 

OHTF 

0.956015E+05 


MAFC 

0. 2509936+03 

MAC I 

0*1325556403 
W ACC 

0.449892E+02 

T21 

0 *3849856+03 
PCBLC 

0. 

PCBLtP 

0. 

T4 

0* 1 33692E +04 
T50 

0.107253E+04 
T 5 

0*9881546+03 
T 55 

0*9060636+03 


ETAR* 1.0000 


WAF 

0. 251593E+ 03 

MAI 

0. 166 145F + 0 - * 
MAC 

0. 802017E+02 
P21 

0*2087886+06 

BLC 

0* 

BLLP 

0* 

P4 

0* 131543E+07 
P50 

0* 459903E+06 
P5 

3. 3L5046E+ 06 
P55 

>.2129776+06 
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ETAB 

PCBLOU 

ETAO 

DP DUC 

T 24 

P24 


C. 9830006*00 

0. 

0. 

0.483611E-01 

0.3362786*03 

0. 130563E+06 


WAD 

MFD 

WG24 

FAR24 

T 2 5 

P25 


0.8544 74E*02 

0. 

0. 854474E+02 

0. 

0 .336278E* 03 

0. 1305636*06 


ETAF 

ETAl 

ETAC 

ETATHP 

ETATIP 

ETATLP 


0.8928886*00 

0. 8797526*00 

0.84376 76*00 

0.897626E*00 

0.895935E+00 

0. 9024266*00 


T 6 

P6 

PS6 

AM6 

V 6 

MG6 


0.906063E*03 

0.2129776*06 

0. 20546 1E*06 

0.2377856*00 

0.1393436*03 

0.8168776*02 


T7 

WFA 

WG7 

FAR7 

ETAA 

DPAFT 


C.906063E+03 

0. 

0.8168776*02 

0. 185283E-01 

0. 

0. 


PS8 

AMS 

V 8 

PS9 

AM9 

V9 


0. 1 15430E*06 

0. 100000E*01 

0. 54683 3E+03 

0. 1154306*06 

0 * 100000E+01 

0. 546833E+03 


PS28 

AM28 

V28 

PS 29 

AM29 

V29 


0.1013256*06 

0.612208E+00 

0 • 2 17 096E+03 

0. 10 1325E*06 

0.612208E*00 

0. 21 7096E* 03 


BPRINT 

DPCOM 

DPMING 

PS38 

A M38 

V38 


0.107 159E *01 

0. 50685 IE-01 

0.9998216-01 

0.1013256*06 

0 .9 842 77E *00 

0. 35447CE+03 


BYPASS 

HPEXT 

MFT 

MGT 

VA 

FRD 


0*5142936*00 

0. 

0.1486006*01 

0.2530796*03 

0. 

o. 


PCBLI 

HG37 

VJM 

PS39 

AM39 

V39 


0.517280E*00 

0.8594366*02 

0.3491536*03 

0.1013256*06 

0 .9 84277E *00 

0. 3544706*03 


C VDWNG 

FGMWNG 

FGPMNG 

FNMING 

FNMA IN 

P28 


C.985000E*00 

0.3000746*05 

o. 

0. 300074E*05 

0.6633386+05 

0. 1305636*06 


FFDVFN 

FWOVFN 

FCOVFN 

FMNOFN 
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CONVERGED AFTER 12 LOOPS 


After the initial time point is calculated, DYNGEN calls DISTRB. From DISTRB 
the fuel flow is stepped to 1. 858 kg/sec. Note that this value is the design-point fuel 
flow (although it did not have to be). Also, in DYNGEN, subsequent calls are made to 
NOZCTR and FCNTRL to determine what controls are used on the main nozzle area and 
the fuel flow. For the case being presented, there are no controls. The next printout 
from DYNGEN, at TIME=. 1 second indicates that the fuel flow is now 1. 858 kg/sec, as 
specified by DISTRB. 
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CONVERGED AFTER 15 LOOPS 


Next, the DYNGEN output is given for a 3 -second transient. 
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MAIN SONIC CONVERGENT NOZZLE FG-105525.37 
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THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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MAIN SONIC CONVERGENT NOZZLE FG= 107318. 94 FN«107318.94 SFC= 0.06233 

DUCT SUBSONIC C0NVERG. NOZZLE 
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THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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CONVERGED AFTER 11 LOOPS 



THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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MAIN SONIC CONVERGENT NOZZLE FG-111259*40 

DUCT SUBSONIC CONVERG. NOZZLE 



THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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CONVERGED AFTER 11 LOOPS 



THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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MAIN SONIC CONVERGENT NOZZLE FG»112181.53 FN=112181.53 SFC» 0.05962 

DUCT SUBSONIC CONVERG. NOZZLE 



THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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THREE SPOOL ENGINE 

THE OUTPUT IS IN SI UNITS 
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MAIN SONIC CONVERGENT NOZZLE FG=114230*88 FN=114230*88 SFC= 0*05856 

DUCT SUBSONIC C0NVERG. NOZZLE 



As indicated earlier, the step in fuel flow for this case is up to the design- 4 
flow. A comparison of the results at 3 seconds and at the design point shows that the 
transient has not quite settled out. However, the results from both cases are close. 
Time histories of the fan speed, middle spool speed, core speed, and turbine inlet tem- 
perature are given in figure 17. 
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appendix c 


CONTROL SYSTEM SIMULATION 

A set of subroutines has been written to allow the DYNGEN user to simulate such 
common control functions as integrations, first-order lags, and hysteresis. These sub- 
routines are discussed in this appendix, and examples are shown to illustrate their use. 
Most of the subroutines (ALFLAG, ALINTR, etc. ) are linear transfer functions. They 
are solved by assuming that the input is a ramp from the past value to the current value; 
the output is then the exact solution assuming the ramp input. The accuracy of this 
method is consistent with the accuracy of the modified Euler method used by DYNGEN 
itself. 

All general-purpose control subroutines are listed in this appendix, except for 
AFQUIR and DERIV, which are part of the main program and are listed in appendix B. 

All subroutines, including AFQUIR and DERIV, are discussed in the following sec- 
tion. Subroutines DISTRB, FCNTRL, and NOZCTR for the two-spool turbofan and one- 
spool turbojet example cases are also listed. 


General-Purpose Subroutines 

SUBROUTINE AFQUIR(X, AIND, DEPEND, ANS, AJ, TOL, DIR, ANEW, ICON) 
solves implicit loops. 

X(I) storage array for previous values 

AIND independent variable 

DEPEND dependent variable 
ANS desired value of dependent variable 

AJ maximum number of iterations 

TOL percentage tolerance on answer 

DIR direction for first guess 

ANEW new guess for independent variable 
ICON control = 1, guess again 

= 2, answer reached 

= 3, exceeded maximum number of iterations 
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Given successive values of AIND and corresponding values of DEPEND, AFQUIR will 
calculate new values for ANEW in an attempt to make DEPEND equal to ANS (within tol- 
erance TOL). An example of the use of AFQUIR is given in subroutine FCNTRL for the 

two-spool example. 

FUNCTION ALFLAG(I, X, TAU, YMAX, YMIN) determines amplitude-limited 
first-order lag. 

I integer constant used with all first-order functions to identify location of previ- 

ous values of function input and output (For first use of ALFLAG (or any 
first-order function with I as an argument), value of I must be 24. (First 
23 locations are used by the main program. ) Subsequent first-order function 
calls should be numbered consecutively, e.g. , 

X = ALFLAG (24, . . . ) 

Y = ALINTR (25, . . . ) 

Z = FIRLAG (26, . . . ) 

The maximum value for I is 50. ) 

X current input value 

TAU time constant 

YMAX maximum output value 

YMIN minimum output value 


x ! 

1 



YMAX 

\f 

ALFLAG 


TAU * S + 1 


YMIN 
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$ I BFTC ALFLAG 

FUNCT ION ALF LAG ( I * X , TAU» YMAX , YMIN > 

COMMON /DYN/ I TP. AN , T I ME , OT , TF , JTRAN ,NSTEP ,T PR I NT , DTPRNT 
COMMON /FOC/ FO ( 50, 4 ) 

IF( JTRAN. EQ. 1) GO TO 1 
ALFLAG=AMAX1(YMIN,AMI M( YMAX.X) > 

FO ( I » 1 ) = X 
FO< 1,21= X 
F 0 ( I , 3>=AIFIAG 
F 0 ( I » 4 ) =ALFL AG 
RETURN 
I X0=F0(I,2> 

YO=FO(I,4) 

TEMP=-DT/TAU 

I F ( ABS ( TEMP) -75. ) 40, 40, 3 0 
30 EX1-0.0 
GO TO 50 

40 EX1=EXP( TEMP ) 

50 EX2=TAU/DT*( 1.0-EXL) 

Y=Y0*EX1*X*( 1.0-EX2 )+X0*(EX2-EXl) 

ALT I MC = AMAX1 ( YM I N , AM I N1 ( YMAX , Y ) ) 

FOU , 1) = X 
F 0 ( I , 3>=ALTI MC 

I F{ ABS ( ALT IMC-YMAX) «LT. 1. CE-5 .OR. AB S( ALTIMC-YMJN).LT.1.0E-5) 
IF0( I , 1 ) =AL T I MC 

alflag=altimc 

PETURN 

END 


FUNCTION ALINTR( I, X, YIC, YMAX, YMIN) performs amplitude- limited integra- 
tion. 

I integer constant used to identify storage location of previous function values 

(See ALFLAG for further discussion. ) 

X current input value 

YIC initial condition 

YMAX maximum output value 

YMIN minimum output value 

ALINTR 

X 





YMAX 
/ — 


1 



Z7 

AUNTR 

s 


J7 

YMIN 
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$ IBFTC ALINTR 

FUNCTION ALI NTR (I , X , Y I C , YMAX , YM I N ) 

COMMON /DYN/ I TRAN , T I ME , DT, TF , JTR AN ,NST EP ,TPR INT , DTPRNT 
COMMON /FOC ( FO ( 50 » 4 > 

IF( JTRAN.EC. 1) GO TO 1 
ALINTR=YIC 
FOC I , 1>= X 
FOC I » 2 > =X 
FOC I , 3)=AL IN TR 
FOC 1 , 4>=AL IN TR 
RE T URN 
1 X0=F0 (1,2) 

YO=FO( 1,4) 

AL INTR=Y0+.5*DT*( X+XO) 

ALINTR=AMAX1 ( YM I N , AM I M ( YMAX , AL I NTR > > 

FOC I , 1 >= X 

FCC I , 3 ) = AL I N TR 

RETURN 

END 

FUNCTION DEDBND(X, DB) determines the dead band. 


X current input value 

DB width of dead band 


X 


./ 

DEDBND 


7 


H Z DB 



$1 BFTC DEDBNO 

FUNCTION OEOBNDCXtDB) 
Y=0. 

IFCX.GT.OB )Y=X-0B 

IFCX.LT.-OB) Y=X+OB 

DED8ND=Y 

RETURN 

END 


FUNCTION DELAY(IDLAY, X, TDELAY, TCLOCK) determines the time delay. 

tdt.AV integer constant, similar to I, used only with DELAY (Calls to DELAY 
should be numbered consecutively from IDLAY=1 to IDLAY=5. ) 

X current input value 

TDELAY length of delay (TDELAY should not exceed 49.xDT, where DT is the solu- 
tion time step specified by user. ) 


TCLOCK 


current time 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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X 

g-TDELAY^S 

DELAY 





SIBFTC DELAY 

FUNCTION DEL AY ( I DLAY , X , TDE L AY , TCLCCK > 
CQMM0N/CDELAY/PDATA(5,50> ,TIMEPT< 50 > 

COMMON /DYN/ I T R AN , T I ME , D T , TF , JTR AN , NS TEP ,T PR I NT , DTPR NT 
IF( JTRAN.EO. 1) GO TO 20 
DO 10 1=1,50 
T IME PT ( I ) = TCLOCK 
10 PDATA( IDLAY, I > = X 
DELAY = X 
GO TO 50 

20 P DA T A ( IDLAY, 1) = X 

TIMEPTI 1> = TCLOCK 

DO 30 1=1,50 
J = I 

IF < ( TCLOCK-TIMEPTII ) ).GE.TDELAY) GC TO 40 
30 CONTINUE 
40 DELTA = 0.0 

IF( ABS(TIMEPT( J-l >-T IMEPT ( J) ) .LT. C.OOOl) GO TO 45 
IF (J.GT.l) DELTA = ( PDA TA( I DLA Y , J- 1 > -P DATA (I DL AY , J > ) * ( TC LOCK 
1 -T IMEPTI JI-TDELA Y> /( TI MEPT ( J-D-TI ME>T ( J > ) 

45 CONTINUE 

DELAY = PDA TA( IDLAY, J> + DELTA 
50 RETURN 
END 


FUNCTION DERIV(I, X) calculates the time derivative. 

I integer constant used to identify storage location of previous function values (See 
ALFLAG for further discussion. ) 

X current input value 


X 


DERIV 




The listing for DERIV is given in appendix B. 

FUNCTION DERLAG(I, X, TAU) calculates the derivative of first-order lag. 

I integer constant used to identify storage location of previous function values (See 

ALFLAG for further discussion. ) 

X current input value 

TAU time constant 
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X 

s 1 

DERLAG 


TAU * s + 1 



$1 BFTC DERLAG 

FUNCTION DERLAG! I ,X, TAU) 

COMMON /DYN/ l T R AN , T I ME , DT , TF , JTR AN ,NSTFP , TPR I NT , DTPRNT 
COMMON /FOC/ FO ( 50 » A ) 

DEPL AG= ( 1.0/ TAU >* (X-F IRL AG l I , X, TAU) > 

RETURN 

END 


FUNCTION FIRLAG(I, X, TAU) determines the first-order lag. 

I integer constant used to identify storage location of previous function values (See 

ALFLAG for further discussion. ) 

X current input value 

TAU time constant 


X 

1 

FIRLAG 


TAU * s + 1 



SIBFTC FIRLAG 

FUNCTION F IRLAGI I ,X,TAU> 

COMMON /DYN/ ITRAN.T IME , OT, Tf , JTRAN ,NSTEP ,TPR INT, DTPRNT 
COMMON /FOC/ FC(50,4> 

IF( JTRAN. EQ. 1) GO TO 1 

F IRLAG=X 

FOU , 1>« X 

FQ( I i 2 )= X 

FC( I , 3>=F IPL AG 

F 0 ( I * 4 >=F I RL AG 

RETURN 

1 X0=F0( 1,2) 

Y 0=F0 ( 1,4) 

TEMP=-DT/TAU 

IF (ABS (TEMP) -75. >40,40,30 
30 E X 1 = 0 • 

GO TO 50 

40 E X1=E XP ( T E MP ) 

50 EX2=TAU/DT*< 1.0-EX1) 

F IRL AG=Y0* EX 1«-X*( 1. 0-E X2 ) +X0*< EX2-E XI ) 

FQ( I , 1) = X 
FO( I, 3)=F IRL AG 
RETURN 
END 


ORIGINAL PAGE IS 
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FUNCTION FLDLAG(I, X, TAULED, TAULAG) determines the first-order lead- 

lag. 

I integer constant used to identify storage location of previous function values 

(See ALFLAG for further discussion. ) 

TAULED lead-time constant 

TAULAG lag-time constant 

X current input value 


X 

TAULED * s + 1 

R.DLAG 


TAULAG- s + 1 



$1 BFTC FLDLAG 

FUNCTION FLDLAGI I ,X .TAULED, TAULAG) 

COMMON /DYN/ ITRAN, T IME , DT, TF , JTR AN ,NSTEP »TPR I NT, DTPRNT 
COMMON /FOC/ F0( 50,4) 

Y=F IRLAGI I ,X, TAULAG) 

FLDLAG=(TAULED/TAULAG)*X+ ( 1 . 0-TAULE D/TAUL AG )*Y 

RETURN 

END 


FUNCTION HYST(I, X, DB) calculates the hysteresis. 

I integer constant used to identify storage location of previous function values (See 
ALFLAG for further discussion. ) 

X current input value 

DB width of dead band 
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$ I B FTC HYST 

FUNCTION HYSTI I ,X,DB> 

COMMON /DYN/ I T R AN, T I ME , DT , TF , J TR AN , NST EP ,T PR I NT , DTPR NT 
COMMON /FOC / FO ( 50, 4 ) 

I F C JTRAN. EC. I> GO TO 1 
F 0 ( I » 1 > =X 
F 0 ( I , 2>=X 
FO ( I » 3 > =X 
FO ( l » 4 > =X 
HYST= X 
RETURN 
1 X0=FO (1,2) 

YO=FO( 1,4) 

HYST = YO 

IF(X-DB.GT.YO.AND.X.GT.XO) HYST=X-DB 

IF<X+DB.LT.YO.AND.X.LT.XO> HYST=X+OB 

FO ( I , I > = X 

FO ( I , 3>=HYST 

RETURN 

END 


FUNCTION RINTEG(I, X, YIC) performs integration. 

I integer constant used to identify storage location of previous function values (See 

ALFLAG for further discussion. ) 

X current input value 

YIC initial condition 


X 

1 

RI NTEG _ 


s 



SIBFTC RINTEG 

FUNCTION RINTEGI I ,X,YIC ) 

COMMON /DYN/ ITRAN, T IME , DT, TF , JTRAN ,NSTEP ,TPRINT, DTPRNT 
COMMON /FOC/ FO ( 5 0, 4 ) 

I F ( JTRAN. EQ. 1) GO TO 1 
R INTEG=Y I C 
FQ( I , 1 )= X 
FQ( I , 2)=X 
FC( I , 3>=R I NT EG 
F0( I , 4)=R I NTEG 
RETURN 
1 XO=FOI 1,2) 

Y 0=F0 ( 1,4) 

R INTEG=Y0+.5*DT*< X«-X0> 

FO( I , 1)= X 
FQ( I , 3>=R INTEG 
RETURN 
END 
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FUNCTION RFLAG(I, X, TAU, RLH, RLL) determines the rate- limited first-order 
lag. 

I integer constant used to identify storage location of previous function values (See 

ALFLAG for further discussion. ) 

X current input value 

TAU time constant 

RLH upper rate limit 

RLL lower rate limit 



tIBFTC RLFIAG 

FUNCTION RLF LAG( I ,X , TAU, RLH, RLL ) 

COMMON /DYN/ IT RAN , T I ME , OT , TF , JTRAN ,NSTEP ,TPR I NT f DTPR NT 
COMMON /FOC/ FO ( 50, 4 > 

IF( JTRAN. EQ. 1) GO T 0 I 

RLFL AG=X 

F 0( I » 1 ) = X 

F 0 ( 1 , 2> = X 

F0( I , 3 ) =RLFL AG 

F0( I ,4)=RLFL AG 

RETURN 

1 X 0=FO ( I » 2 > 

Y 0=F 0 ( 1,4) 

TEMP=-DT/TAU 

IF(ABS(TEMP)-75»)43,40,3j 
30 EX1=0.0 
GO TO 50 

40 EX1=EXP( TEMP ) 

50 CX2=TAU/DT*( 1.0-EXD 

RLFLAG=YO*EX 1+X*( 1. 0-EX2 ) +X0* ( EX2-E XI ) 

RLFLAG=YO+AM INK RLH, AMAX 1 (RLL, ( RLFLAG-YO) /DT> )*DT 

FO( I, I)= X 

F 0 ( 1 , 3 ) =RL Fl_ AG 

RETURN 

END 


FUNCTION SECLAG(J, X, OMEGA, ZETA) determines the second-order lag. 


J integer constant, similar to I, used only with second-order functions SECLAG 

and SLDLAG (Calls to SECLAG and SLDLAG should be numbered consecu- 
tively from J=1 to J=10. ) 
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X current input value 

OMEGA natural frequency 
ZETA damping ratio 


X 

OMEGA-- 2 

SECLAG 


s«2 + 2*ZETA*0MEGA«s + 0MEGA«2 



HBFTC SFCLAG 

FUNCTION SECLAG! J.X.OMEGA ,ZETA> 

COMMON /DVN/ I TR AN , T I ME , DT , Tp , J TR AN »N STEP ,T PR I NT , DTPRNT 
C OMMON/ SOC /S C( 10, 6) 

IF! JTRAN.EQ. 1) GO TO 1 
SOI J, l)=x 
SOI J, 2 )=x 
SO I J, 3 > = X 
SOI J,4>=X 
S 0 1 J, 5 ) =X 
SOIJ » 6) =X 
S ECLA G=X 
RETURN 
l XO=SO I J » 2 ) 

XOO=SO< J, 3) 

Y0=S0IJ,5) 

YQO= SOI J , 6 ) 

A--ZETA*0MEG A 

CM1=OMEGA*SORT( 1.0-ZETA**2> 

YO=I YO-YOO )/DT 

XD= ( X— X30 ) /D T/2 « 0 

XDD= !X-2.0*X C4-X00) ZDT/OT 

A 1=X0-X DO /OMEGA /OMEGA*! l.C-4. 0*ZE TA*ZET A > -2 . 0 *Z ET A*XD/OME GA 
B1=XD-2.0*ZE TA*XDD/ OMEGA 

SECL A G= I Y 0— A 1 > *E X P( A *D T ) * CO S ( OM 1*DT > + Al+B L* DT +XDD*DT*0T/2 . 0 
1 ♦ I YO+ZETA*OM EGA *Y O-XD* I 1 • C-2 • 0*ZETA *ZET A) +ZET A* XPD/ OMEG A* 

2! 3.0-4. 0*ZET A*ZETA)-ZETA*OMEGA*XO)*EXP( A*OT )/OMl*S IN! 0M1*DT > 

SO! J, 1)=X 

SOI J, 4 ) =SECL AG 

RETURN 

END 

FUNCTION SLDLAG(J, X, OMEGA, ZETA, AA, BB) determines the second-order 
lead- lag. 


J integer constant, similar to I, used with second-order functions (See SEC LAG 



for discussion. ) 

X 

current input value 

OMEGA 

denominator natural frequency 

ZETA 

denominator damping ratio 

AA, BB 

numerator coefficients 
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SLDLAG 


AAs«2 + BB^s + 0MEGA--2 
s»2 + Z*ZETA*OMEGA*s + OMEGA** 2 


$ I BFTC SLDLAG 

FUNCTION SLDLAG (J ,X , OMEGA ,ZETA , AA , B8> 

COMMON /DYN/ I TR AN , T I ME , DT , TF , J TP.AN »NSTEP ,TPR INT , D TPRNT 
COMM ON /SO C/SOI 10, 6> 

! F( JTRAN.EQ. 1) GO TO I 

sou, i>=x 

SO I J , 2 ) =X 
SO(J, 3>=X 
SOI J , 4 >=X 
S 0 1 J , 5 ) =X 
SCI J,6)=X 
SLDLAG=X 
RETURN 

1 XO=SO ( J, 2 ) 

XOO=SO( J,3> 

YO=SO( J , 5 > 

YOO=SO(J, 6) 

A=-ZETA*QMEGA 

OMl=OMEGA*SQRT( l. O-Z E TA* * 2 > 

YD=(YO-YOO)/DT 
XO=(X-XOO)/D 1/2.0 
XDD=(X-2.0*X0+X00)/DT/DT 
X0TEMP=XO 


XO=XO + ( AA*XDC«-BB*XD> /OMEGA/OMPGA 
XD=XD+BB*XDD /OMEGA/OMEGA 

A l=XO-XDD/QM EGA /OMEGA* (l.C-4.0*ZFTA*ZETA>-2.0*ZETA*XD/OM' 7 GA 
B 1=XD-2.0*ZE TA*XDD/OMEGA 


S ECL A G- I YO-A 1 ) *EX P( A*DT ) * COS ( CM 1*DT ) + A1 +B 1* DT +-XDD*D Y*OT/2 . 0 
L+(Y0+ZFTA*CMEGA*Y0-XD*( 1.0-2.0*ZETA*ZETA> +ZETA*XDD/OM c GA* 

21 3.0-4. 3* ZET A*Z E T A ) -ZE T A* CMEG A *X0 ) *EX P ( A* DT >/OMl*SIN( 0M1 *Dt ) 
XO=XOTEMP 


SCIJ, 1 ) = X 

SLDLAG=SECLAG 

SO ( J » 4) =SLDL AG 

RETURN 

END 


Use of Control Subroutines 


For any engine he wishes to simulate, the user must write three subroutines: 
FCNTRL, NOZCTR, and DISTRB. Subroutine FCNTRL is called by COCOMB and is 
used to calculate main fuel flow WFB. Subroutine NOZCTR is called by COMNOZ and 
is used to calculate nozzle area. Subroutine DISTRB is called by ENGBAL and supplies 
a time- varying transient input to the simulation. Listings of subroutines FCNTRL, 
NOZCTR, and DISTRB for the two-spool and one-spool example cases used in this report 
are given at the end of this appendix. If one of these subroutines is not needed for a 
particular engine, it should consist of a RETURN statement, as shown in the listings. 
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The fuel control system for the two-spool turbofan is given in figure 18, and the fuel and 
nozzle control systems for the afterburning turbojet are shown in figure 20. 

The fuel control system for the two-spool turbofan (fig. 18) is used as an example 
to illustrate programming techniques. Certain problems arise from the fact that 
DYNGEN can use a large time step DT in obtaining solutions to differential equations. 
For example, consider a simple block diagram, as shown in the following sketch: 



A programmer could use function RINTEG, with X-Y as input, to calculate the out- 
put of the integrator. For maximum accuracy, RINTEG requires that the current value 
of X-Y be used as input; however, only the past value of Y is available (unless itera- 
tive methods are used). Use of the past value of Y can lead to appreciable errors if 
the value of DT is large. Hence, to ensure maximum accuracy, the programmer must 
sometimes resort to iterative methods when writing control subroutines for DYNGEN. 
This technique is illustrated in subroutine FCNTRL for the control system of figure 18. 

In order to begin the iterative process, a value for integrator output YF is assumed. 

By using function DERIV, a value for integrator input YFDOT is then calculated. Also 
EXNL and EACL, the inputs to the MIN function, can be calculated by using the assumed 
value of YF. The lesser of these inputs is the output of the MIN function YFDOTX. 

For a consistent solution, YFDOT and YFDOTX should be equal. This fact is used to 
generate an error variable ERRW. Subroutine AFQUIR is then used to generate a new 
guess for YF, and the process continues until ERRW is less than a desired tolerance. 


Example Case - Two-Spool Turbofan 

An example of DISTRB, FCNTRL, and NOZCTR are given for the two- spool turbo- 
fan case. In this example a throttle step is accomplished by starting the transient at a 
specified low-pressure- rotor speed. DISTRB is called by DYNGEN and the demanded 
speed for the low-pressure rotor is set higher (at the design-point value). The differ- 
ence between the actual speed and the demanded speed is used to generate a fuel flow 
(fig. 18). 

Subroutine DISTRB is now shown. COMMON blocks DYN, RPMS, and CNTRL are 
shown. In DISTRB the demanded speed XNLDEM is set equal to the low-pressure-rotor 
design speed XNLPDS (table V), which is set in the NAMELIST input (not presented). 
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XNLDEM is transferred to the fuel control subroutine FCNTRL through COMMON block 
CNTRL. 


SIBFTC DISTRB 

SUBROUTINE DISTRB 

COMMON /DYN/ ITPAN.TIME.DTfTF.JTRAN.NSTEP.TPRINTtDTPPNT 
COMMON /RPMS/ XNHPDS ,XNI PCS, XNLPDS, PMIHP, PMII P, PMILP 
COMMON /CNTRL/ XNHM , XNL M , T2 1 M , P3M , YF , YF DOT , YF B , EXNL , PH I , WF B AC L , 
1 YFACL, EAC L , XNLDEM, XNHP, XNLP 
XNLDEM = XNLPD S 
RETURN 
END 


Subroutine FCNTRL is now presented. COMMON blocks ALL1 to ALL5 are used 
as previously described in the three-spool example. In this subroutine, 

DATA AWORD/ 6HFCNTRL/ 

W ORD= AW ORD 


is set so that the name FCNTRL is sent to subroutine ERROR if an error is found. The 
other commons are used to transmit data to and from FCNTRL as needed. 


ilBFTC FCNTRL 

SUBROUTINE FCNTRL 
COMMON /WORDS/ WORD 
COMMON /DESIGN/ 

1IDES ,JDES ,KDES .MODE ,INIT , IOUMP ,IAMTP ,IGASMX, 
2ID6UPN, IAFTBN, IDCD , IMCD , I DSHOC , IM SHOC ,NGZ FLT , I T P Y S , 
3 L OOP ER, NO MAP , NUMMAP , MAP EDG, TCLALL , ERR( 9) 

COMMON /AL L 1 / 

1PCNFGU,PCNCGL,TAGU ,DUMD1 ,OUMD2 , CE LF G ,DELFN .PELSFC, 
2ZF0S , PCNFDS, PRFDS , ETAFDS , WAFDS ,PRFCF ,ETAFC F , W AFC F , 
3ZCDS , PC NCD S , PRC DS , ETACCS, WACDS ,PRCCF t ETACCF, WACCF , 
4TADS , WF B DS , DTC ODS , ET A BDS , W A3CDS , CPCOCS ,DTC OCF , ET ABC F , 
5TFHPDS, CNHPD S» ETHPDS » TFH PCF »CNHPC F , FTHPCF .DHHPCF, T2DS , 
6TFLPDS,CNLPDS,ETLPDS,TFLPCF,CNLPCF,ETLPCF ,DHLPCF, T21DS , 
7T24DS , WF D DS , D TDUDS , ET ADDS , W A23DS , CPDUDS , D^DUCF , ET ADC F , 
8T7DS , WF A OS , DTAFD S , ET A A CS , WG6CDS , CP AF DS ,DTAFC F , ET AACF , 
9 A 55 »A25 ,A6 ,A7 ,A8 , A9 ,A28 ,A29 , 

$P S55 , AM5 5 ,CVDN0Z,CVMNCZ,A8SAV ,A9SAV , A28 SA V , A2 9S A V 

COMMON / A L L2 / 


Ill 

i PI 

» H 1 

, si 

, T 2 

,P2 

,H2 

, S2 


2T2 1 

»P21 

,H 21 

, S21 

»T3 

,P3 

»H3 

, S3 


3 T4 

t P4 

»H4 

, SA 

» T 5 

,P5 

,H5 

» S5 


4T55 

,P55 

,H55 

, S55 

, B LF 

, BLC 

, BLDU 

, BLOB 


5CNF 

, PRF 

, ETAF 

t WAF C 

, W AF 

, WA3 

,WG4 

, FAP.4 


6CNC 

,PPC 

,etac 

, W AC C 

, WAC 

, ET AB 

»DPCQM 

, DUMP 
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7CNHP 

,ETATHP 

, DHTCHP 

» DHTC 

, B LHP 

, WG5 

,F AR 5 

,CS 

8CNLP 

tETATLP 

,DHTCLP 

, DHTF 

,BLLP 

, WG55 

,F AR55 

, HPEXT , 

9AM 

,ALTP 

, E T A P. 

,1 F 

, PCNF 

,zc 

, PCNC 

, WFB , 

$T FFHP 

,TFFLP 

, PCBLF 

, PCBLC 

, PCBLDU 

9 PC BLOB 

,PCBLHP 

, PCBLLP 

COMMON 

1XP1 

/ ALL3 / 
t X W A F 

, XWAC 

, XBL F 

, XBLDU 

t XH 3 

,DUMS1 

, DU M S 2 

2XT21 

, XP 2 1 

,XH2 1 

, XS2 1 

, T23 

»P2 3 

,H23 

» S2 3 

3T24 

, P24 

, H 24 

, S24 

» T 25 

, P25 

,H 25 

, S25 

47 28 

, P28 

, H 28 

, S28 

,T29 

,P2 9 

»H29 

,S29 

5 WAD 

r WFD 

» WG24 

, F AR 24 

, ETAD 

, DPOUC 

, BYPASS 

, DU MS 3 

6TS28 

,PS28 

, V 28 

, AM2 8 

, T S29 

, PS 29 

, V29 

,AM29 

7XT55 

» XP 5 5 

, XH55 

, XS5 5 

, X T25 

, XP25 

, XH2 5 

, XS25 

8XWFB 

, XWG55 

, XFAR55 

, XWF D 

, XWG24 

9 XF AR 24 

,XXPl 

, DUMB 

916 

»P 6 

,H6 

f S6 

» T 7 

»P7 

»H7 

,S7 

$ T 8 

»P8 

,H8 

,S8 

, T 9 

»P9 

,H9 

» S9 

COMMON 
I WG6 

/AL L4 / 
t WF A 

, WG7 

, F AR 7 

,ETAA 

9 DP AF T 

, V55 

, V25 

2PS6 

, V6 

, AM6 

, TS7 

»PS7 

, V7 

,AM7 

, AM25 

3TS8 

, PSb 

,V8 

, AMS 

,TS9 

t PS9 

,V9 

, AM9 

4V A 

» FRO 

, V JD 

, FGMD 

, V JM 

t FGMM 

,FGPD 

, FGPM 

5FGM 

t FGP 

, WFT 

, WGT 

, F ART 

,fg 

,FN 

,SFC 

6WA32 

, DPWGDS 

,, OPWING 

,WA32DS 

, A38 

, AM 38 

t V38 

,T33 

7H38 

,P38 

, TS38 

, P S3 8 

, T 39 

9 H39 

»P 39 

, TS39 

8V39 

, AM39 

, A39 

, BPR I NT 

, WG37 

t CVDWNG 

fFGMWNG, FGPWNG 


9FNWING,FNMAIN,FW0VFN,PS39 , FFOVFN, FC 0 V F N * F MN OF N » FNOVF D» 

$VJW » T 22 » P22 »H22 ,S22 »T50 ,P50 »H50 

COMMON /ALL5 / 

1S50 ,WA22 ,71 » PCN I ,CNI , PP I »ETAI ,WACI » 

2TFFIP »CNIP ,ETATIP,DHTCIP,DHTI ,BLIP ,PCBLI P, PCNI GU, 

3Z IDS » PC N ID S , PR I DS , ETA I CS , WA I DS ,PRICF , ETA IC F, W A ICF , 
4TFIPDS,CNIPDS,ETIPOS,TFIPCF,CNIPCF,ETIPCF,DHIPCF,WAICDS, 

5WAI »PCBL I * B L I » T22D S ,WA21 ,WG50 ,FAR50 , A24 , 

6AM23 ,DUMSPL,FXFN2M,FXM2CP, AFTFAN, PUNT ,PCBLI D, P6DS AV , 

7AM6DSV ,ETAASV,FAP7SV*T4PBL ,T41 ,FAN , I SPOOL 
COMMON 7DYN7 I TRAN, T I ME , DT , TF , JTR AN »NSTEP »T PR I NT , DTPRNT 
COMMON /RPMS/ XNHPDS ,XNI PDSt XNLPDS» PMIHP, PMI I P»PMILP 
COMMON 7CNTRL/ XNHM , XNL M , T2 1 M , P3M , YF , YF DOT , YFB, EXNL , PH I , WFB AC L , 

1 YFACL»EACL, XNL DEM, XNHP » XNLP 
D I ME NS I ON Q( 9> 

DATA AWORD / 6HFCNTRL / 

WORD=AWORD 

XNHP = XNHPOS* PCNC/ 100. 

XNLP=XNLPDS*PCNF/ 100. 

I F t ITRAN.EQ. 1. AND . JTR AN . EC. 0 ) XNL DE M= XNLP 
X NHM=F l RL AG( 24, XNHP , .01 ) 

XNLM=F IRL AG( 25, XNLP, .01) 

T 2 1M=F IRL AG( 26,T21,.50) 

P 3M=F IRLAG(27,P3, .02) 

YF=SQRT(WFB/4.653 )-.084b 
Q( 2) = 0.0 
Q < 3 ) = 0 • 0 

YFDOT = DER I V ( 28, YF) 

YFB=14«978*F IRLAG(29,YFD0T,»50) 

EXNL=25.91*( XNLDEM-XNLM) /XNLPOS-YFB 

PHI = (-9.4+< 3 3.* XNHM /XNHP DS) *SQRT (518.67/T21M)>*(.3124+.6895*T21M 
1 /518.67) 

WFBACL=14.696*PHI *P3M/360C. 

YFACL=SQRT { WFBACL/4. 653) 

EACL=33.*( YF ACL-YF) 
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YFDQTX=EXNL 

I F ( EACL.LT.E XNL ) YFDOTX=EACL 
ERP.W=YFDOT-YFDOTX 
0 IR = 0.0 

I F ( Y F DOTX • NE .0.0) DIR=SQRT(ABS( YFnOT/YFDOTX) ) 

CALL AFQU I R ( G( 1>,YF,ERRW,C.,20.,1.E-4,DIR ,YFT , I GO ) 
GO TO (19,21 ,20) , IGO 

19 YF=YFT 

GO TO 18 

20 CALL ERROR 

21 CONTINUE 
WFB=4.653*(YF+.0846>**2 
RETURN 

END 


There is no main nozzle control required for this case, and subroutine NOZCTR 
contains only a return. 


$IBFTC NOZCTR 

SUBROUTINE NCZCTR 

RE T URN 

END 


Example Case - One-Spool Turbojet 

For this example a throttle slam from idle (60 percent corrected speed) to full 
afterburning for a one-spool turbojet is simulated. Subroutine DISTRB sets the de- 
manded speed at 60 percent at TIME=0.0. If TIME is greater than 0. 1 second, the de- 
manded speed (PCNFDM) is set equal to 101. 5 percent. PCNFDM is transferred to 
subroutine FCNTRL through COMMON block XXPCNF. Also when the speed equals 
100 percent, the fuel flow to the afterburner (WFA) is ramped. Note here that LAFTBN 
must now be set equal to 2 so that this can be accomplished (table III). The change in 
IAFTBN is transferred into DYNGEN through COMMON block DESIGN. WFA is trans- 
ferred into DYNGEN through COMMON block ALL4. 


$ I 6 FTC DISTRB 

SUBROUTINE DISTRB 
COMMON /wOPDS/ WORD 
COMMON /DESIGN/ 

llOES » JOE S , K DE S , MODE ,INIT , IDUMP ,IAMTP ,IGASMX, 
2I0BURN, IAFTBN, IDCD ,IMCD , IDSHCCi IMSHCC ,NOZFLT , ITRYS , 
3L00PER, NOMAP , NUM MAP , M AP E CG, t CL AL L , EP R ( 9 ) 

COMMON /A L L 1 / 

1PCNFGU,PCNCGU,T4GU ,DUMC1 ,DUM02 ,0ELFG ,f EL FN , DE LS FC , 
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2ZFDS ,PCNFD S,PRFDS , ETAFCS , WAFDS ,PRFCF »E T AFCF , WAFCF , 
3ZC0S .PCNCDS, PRCDS , E T AC CS , W AC D S ,PP.CCF f ETACCF, WACC F , 
AT AOS ,WFBDS , DTCODS » FT A BDS , W A3C DS , CPCODS ,OTC OCF , FT ASC F , 
5TFHP0S,CNHPDS,ETHPDS,TFHPCF,CNHPCF,FTHPCF ,DHHPCF,T20S , 
6TFLPDS,CNLPDS,ETLPDS|TFLPCF ,CNLPCF, ETLPCF , DHL PCF , t 2 IDS , 
7T2ADS » WF D CS , DTOUD S , ETADDS , W A23DS , CPDUDS ,DTDUCF, ET ADCF , 
8T 70S fWFACS »DTAFDS,ETAACS,WG6CDS»DPAFDS»DTAFCF,E T AACF> 
9 A 55 , A 2 5 ,A6 ,A7 ,A8 , A9 ,A28 , A29 t 

$PS55 ,AM55 ,CVDNOZ rCVMNOZ , A8SAV ,A9SAV , A28SAV > A29S AV 

COMMON ZALL2Z 

1 T 1 ,P1 (HI ,S1 »T2 , P2 t H2 tS2 » 

2T2L , P2 L ,H21 ,S21 , T 3 » P3 »H3 * S3 » 

37 A , PA i HA i SA , T 5 , P5 ,H5 ,S5 , 

AT 55 » D 55 f H55 ,S55 » B LF ,3LC ,BLDU » BLOB , 

5CNF ,PRF » E T AF ,WAFC ,WAF ,hA3 ,WGA » F ARA , 

6CNC , PRC » ETAC ,W ACC ,WAC » ET AB »DPCCM , DUMP , 

7CNHP ,ETATHP,DHTCHP,DHTC * BLHP ,WG5 ,FAR5 ,CS , 

8CNLP , ET A t L P f DHTCL P » DHT F ,BLLP » *G55 ,FAR55 ,HPEXT , 

9AM ,ALTP , ETAR » ZF , PCNF , ZC ,PCNC »WFB , 

JTFFHP ,TFFLP ,PCBLF ,PCBLC , PCBLDU, PCBLOB ,PCBLHP, PC8LL P 
COMMON /ALL3 / 

1XP1 , XWAF , XWAC , XBL F ,XBLDU ,XH3 ,DUMS1 ,OUMS2 , 

2XT21 i XP 2 L »XH21 »XS21 ,T23 ,P23 ,H23 , S2 3 , 

3T2A , P2A , H2A , S2A ,725 , P2 5 ,H25 ,S25 « 

AT 28 , P28 , H 28 ,S28 ,T29 ,P29 ,H29 ,S29 , 

5WAD , WFD , WG2A ,FAP.2A , E TAD ,DPDUC ,B YP AS S , DUMS 3 , 
6TS28 , PS28 ,V2 8 ,AM28 ,TS29 ,PS29 ,V29 »AM29 , 

7XT55 , XP55 ,XH55 ,XS55 ,XT25 ,XP25 ,XH25 ,XS25 , 

8XWFB , XWG55 ,XFAR55,XWFD , XV.G2A ,XFAR2A,XXP1 , DUMB , 
9T6 ,P6 ,H6 , S6 ,T7 , P7 »H7 ,S7 , 

$T 8 ,P8 ,H8 ,S8 , T9 , P9 ,H9 , S9 

COMMON /ALLA/ 

1WG6 , WFA , WG7 , F AR 7 , E TAA , DPAF T ,V55 ,V25 , 

2PS6 ,V6 , AM6 ,TS7 ,PS7 , V7 ,AM7 ,AM25 , 

3TS8 ,PS8 , V 8 , AM8 , T S9 ,PS9 ,V9 ,AM9 , 

AVA ,FRD , V JD , FGMD ,VJM , FGMM ,FGPD , FGPM , 

5FGM ,FGP , WFT ,WGT , FART ,FG ,FN , SFC , 

6WA32 jOPWGDSjDPWING , WA32DS ,A38 ,AM38 ,V38 ,T38 , 

7H38 , P38 , T S3 8 ,PS38 ,T39 ,H39 ,P39 ,TS39 , 

8V39 , AM39 ,A39 ,BPRINT,WG37 ,C VDW NG ,FGMWNG, FGPWNG , 

9FNWING»FNMAIN, FWOVFN , PS 3 9 , FFOVFN, FCOVFN ,FMNCFN, FNOVFO, 

$VJW , T2 2 ,P22 , H22 , S22 ,T50 ,P50 , H50 

COMMON /AL L5 / 

1 S 50 ,WA22 ,ZI , PCN I ,CNI , PR I ,ETAI ,WACI , 

2TFFIP , CN I P ,ETATIP,OHTCIP,DHTI , BL ! P ,PCB LI P, PCN I GU , 
3Z IDS , PC N ID S , PR I OS , ET A l CS , WA I DS , PRICE ,ETA IC F, WA IC F , 
ATF IPDS,CN IPDS,ETI PDS , T F I P CF ,C NI PC F , ET IP CF , OH I PCF , WA IC DS , 
5W A I , PC BL I i B L I ,T22DS ,WA2I ,WG50 ,FAR50 , A2A , 
6AM23 , DUMSPL,FXFN2M,FXM2CP,AFTFAN, PUNT , PCBL I 0, P6DS A V , 

7AM6DSV»ETAASV»FAR7SV»TAPBL ,TA1 ,FAN , I SPOOL 
COMMON /DYN/ IT RAN , T I ME , DT , TF , JTR AN ,N STEP ,T PR INT , DTPR NT 
COMMON /RPMS/ XNHPDS , XN I P DS , XNL PDS , PM IH P, PM I I P , PM IL P 
COMMON/XXPCNF/PCNFDM 
IF ( I TIME .EQ. 1) GO TO 1 
T I ME A = 0 • 0 
IT IME=0 
1 CONTINUE 
PCNFDM=60.O 

IF (TIME .GE. .1) PCNFDM = 101» 5 
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IF ( PCNF • G5 • 100.0) ITIME=1 
IF ( ITIME .EC. 0> GO TO 3 
IF (TIMEA .GT. 0.0) GO TO 2 
IF (ITIME .EQ. 1) T I MEA=T I ME 

2 CONTINUE 

IF (TIME .GT. TIMEA) IAFTBN=2 

IF (TIME .GT. TIMEA) WFA=2.5/2.0*( TIME-TI ME A) 
IF ( WFA .GE. 2.5) WFA=2.5 

3 CONTINUE 
RETURN 
END 


Subroutine FCNTRL calculates main burner fuel flow from the speed error, 
fuel flow (WFB) is transferred into DYNGEN through COMMON block ALL 2. 


tIBFTC FCNTRL 

SUBROUTINE FCNTRL 
COMMON /A L L l / 

1PCNFGU.PCNCGU.T4GU .DUMDl .DUMD2 ,CELFG f DELFN ,DELSFC 
2ZF0S j PC NFO S» PR FOS . ETAFDS » WAFDS ,PRFCF » ET AFC F . WAFC F 
3ZCDS i PC NCO S» PRC DS , ETAC CS » WACDS ,PRCCF , ETACC F, W ACC F 
4T4DS » WF B OS , DTCOOS » ET A 80S » W A3CDS , CPCODS .DTCOCF, ET ABC F 
5TFHPDS,CNHP0S,ETHP0S,TFHPCF,CNHPCF,ETHPCF , OHHPCF » T2DS 
6TFLPDS,CNLP0StETLP0S,TFLPCF,CNLPCF, ETLPCF f DHL PCF , ' r 2 IDS 
7T24DS » W p D CS , DTDUOS ,ETADDS , WA230S. OPDUDS ,DTDUCF, ETADCF 
8T7DS » WF A OS , OTAFD S , ET A ACS , WG6CDS , OP AF DS , DTA FCF, ET A ACF 


9 A 55 

, A25 

f A 6 

, A7 

, A 8 

r A9 

9 A28 

, A29 

$ P 5 5 5 
COMMON 

» AM55 
1 /ALL2 / 

iCVDNOZ 

iCVMNCZ 

, A 8 SAV 

t A9S A V 

9 A28 SA V 

VA29SAV 

1 T 1 

»P1 

t H 1 

9 SI 

» T 2 

»P2 

iH 2 

»S 2 

2T21 

.P21 

» H 2 1 

1 S2I 

» T 3 

tP3 

tH3 

» S3 

3T4 

»P4 

t H4 

f S4 

» T5 

,P5 

»H 5 

» S5 

4T 55 

» P55 

i H55 

, S55 

,BLF 

t BLC 

t BLDU 

. BL08 

5CNF 

,PPF 

i ET AF 

, WAFC 

, WAF 

. WA3 

t WG4 

, FAR4 

6 CNC 

» PRC 

* ET AC 

, WACC 

»WAC 

» ET AB 

,DPCCM 

i OU M P 

7CNHP 

, ETATHP 

,OHTCHP 

,DHTC 

» B LHP 

» WG 5 

,FAR5 

»CS 

8 CNLP 

.etatlp 

? OHT CLP 

» OHT F 

, BLLP 

t WG 55 

f FAR55 

t HP EXT 

9AM 

, AL TP 

,ETAR 

» ZF 

, PCNF 

»zc 

9 PCNC 

, WFB 

$TFFHP 

COMMON 

.TFFLP 
/ALL3 / 

i PCBLF 

tPCBLC 

» PCBLOU 

, PC8LOB 

9 PC B LHP 

, PCBLLP 

1XP1 

, XWAF 

, XWAC 

i X8LF 

, XBLOU 

» XH3 

9 DUM SI 

, DU MS 2 

2XT21 

» XP 2 l 

r X H2 1 

i XS2 1 

» T23 

» P23 

,H23 

» S2 3 

3T24 

» P24 

f H24 

t S24 

» T 25 

, P2 5 

9 H 25 

, S25 

4T28 

,P2 8 

,H28 

, S28 

. T 29 

» P29 

f H29 

» S29 

5WAO 

, WFD 

» WG24 

9 FAR 24 

,ETAD 

tOPDUC 

9 BYPASS 

t DUMS 3 

6TS28 

» PS2 8 

9 V 28 

9 A M 2 8 

» T S29 

. PS 29 

,V29 

»AM29 

7XT55 

. XP 5 5 

t XH55 

t XS 5 5 

» X T25 

t XP25 

»XH25 

» XS25 

8XWFB 

, XWG55 

, XFAR55 

tXWFD 

. XWG24 

, XFAR24 

,XXP1 

.DUMB 

9T6 

* P6 

t H6 

t S6 

» T 7 

» P7 

9 H 7 

»S7 

%T 8 

COMMON 

» P8 

/AL L4 / 

f H8 

9 S3 

t T 9 

»P9 

9 H 9 

. S9 

IWG6 

» WF A 

» WG7 

9 FAR 7 

» ETAA 

, CP AFT 

9 V 55 

. V25 , 


The 


158 



2 PS 6 

f V 6 

t A M 6 

,T$7 

t PS7 

, V7 

, AM7 

f A M 2 5 

3TS8 

,PS 8 

f Vd 

, AMS 

f T S9 

, PS9 

,V9 

, AM9 

4V A 

, FRD 

t V JD 

f FGMD 

, V JM 

f FG MM 

,FGP0 

fFGPM 

5FGM 

i FG P 

r WFT 

t WGT 

f F ART 

,fg 

,fn 

, SFC 

6WA32 

i OP WGD S 

, D PW I NG 

, WA32DS 

f A 38 

f AM38 

, V 38 

9 T38 

7H38 

» P 38 

» T S3 8 

# P S3 0 

f T 39 

f H3 9 

, P39 

,TS39 

8 V 39 

,AM39 

f A 39 

,BPR I NT 

t WG3 7 

fCVOWNG 

f FGM WNG» FGPWNG 

9FNWING 

9 FNMA I N 

, FWOVFN 

t PS 3 9 

f FFOVFN 

f fcovfn 

,FMNOFN 

9 FNOV F 0 

SV JW 

t T 2 2 

t P22 

,H22 

f S22 

f T50 

,P50 

, H50 


COMMON / A L L 5 / 

1 S 50 ,WA22 ,ZI » PCN I ,CNI , PR I ,ETAI ,WACI , 

2TFFIP tCNIP , ETATIP,DHTC IP,DHTI , 8L I P ,PCBLI P, PCNI GU» 

3Z IDS » PCN ID S» PP I DS , ETA I DS » WA ! DS ,PRICF , ETA ICF, WA ICF , 

4TFIPDS,CNIP0S,ETIPDS,TFIPCF,CNIPCF, ETIPCF,DHIPCF,WAICDS, 
5WAI » PC BL I * B L I ,T22DS ,WA21 ,WG50 ,FAR50 ,A 24 , 

6AM23 ,DUMSPL,FXFN2M,FXM2CP, AFTFAN, PUNT ,PCBL I 0, P60S A V, 
7AM6DSV,ETAASV,FAR7SV,T4PBL ,T41 , FAN .ISPCOL 

COMMON ZDYN/ ITR AN,T I ME , DT, TF , JTRAN ,NSTEP ,TPR I NT, DTPRNT 
COMMON/XX PCN F/PCNFDM 
XKP=. 0006351 

IF { ITRAN .EG. 1 .AND. J TRAN .EQ. 0) PCNFQM=60.0 

ERPCNF=PCNFOM-PCNF 

ALIM=. 005501 

BL!M=. 008806 

WFQP3U=(ALIM-BL I M ) * ( PCNF-105. C) / I -45. 0 > +B L I M 
WFOP3L=WFOP3U/3. 

WFPB= .005833+XKP*ERPCNF 

IFIwFPB.GT.WF0P3U) WFPB=WF0P3U 

IFIWFPB.LT • W FOP 3L ) WFP8=WF0P3L 

WFB=WFPB*P3*14.696 

RETURN 

END 


Subroutine NOZCTR calculates the afterburner nozzle area (A8) as a function of 
pressure ratio error. Values needed for this error are P3 and P2 and are transferred 
to NOZCTR from DYNGEN through COMMON block ALL2. The nozzle area (A8) is 
transferred out of NOZCTR through COMMON block ALL1. 


tIBFTC NOZCTR 

SUBROUTINE NOZCTR 
COMMON /ALL1 / 

1PCNFGU,PCNCGU,T4GU ,DUMD1 ,DUMC2 , CELFG ,DELFN , DELSFC , 
2ZFDS , PCNFD S, PRFDS , ET AFCS , WAFDS ,PRFCF , ET A FC F , WAFC F , 
3ZCDS , PCNCD S, PRC DS , ETACDS, WACDS , FRCCF ,ET ACCF, WACC F , 
4T4DS , WF B DS , DTC OD S , ET A BDS , W A3CDS , CPCGDS , DTCOC F , ET ABC F, 
5TFHPDS, CNHPDS.ETHPDSr TFHPCF.CNHPCF, ETHPCF ,DHHPCF,T2QS , 
6TFLPDS,CNLPDS,FTLPDS,TFLPCF, CNLPCF.ETLPCF jDHLPCF , T2 IDS , 
7T24DS ,WFDCS , DTDUD S , ET AD CS , W A2 3DS , CP DUDS ,DTDUC F, E T ADC F , 
8 t 7DS ,WFACS , DTAFDS , ETA ACS, WG6CDS, CPAFDS ,DT A FCF , ET A AC F , 
9A55 , A25 ,A6 ,A7 ,A8 , A9 ,A28 , A29 , 

JPS55 , AM 5 5 ,CVDNOZ ,CVMNCZ , A8SAV ,A9SA V ,A28SAV, A29S AV 


COMMON /ALL2 / 


PAGE B 

P00 & quality 
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1 T 1 

»P1 

• HI 

t SI 

9 T2 

9 P 2 

»H2 

, S2 

2T21 

t P21 

* H21 

, S 21 

9 T 3 

9 P3 

f H3 

, S3 

3T4 

tP4 

9 H4 

» S4 

9 T 5 

iF5 

fH5 

t S5 

4T55 

,P 55 

t H 55 

, S55 

9 B LF 

» BLC 

pBLDU 

, BLOB 

5CNF 

p PR F 

,ETAF 

,WAFC 

9 WAF 

» WA3 

9 WG4 

, F AR 4 

6CNC 

f PRC 

9 E T AC 

9 W AC C 

9 W AC 

9 ET AB 

p DPC OM 

, DUMP 

7CNHP 

, 5TATHP 

’tOHTCHP 

» DHT C 

t B LHP 

, WG5 

p F AR 5 

»cs 

8CNLP 

p ET A T L P 

1 9 DHT CLP 

t DHTF 

98 ILP 

» WG55 

fFAR55 

, HPEXT 

9 AM 

p ALTP 

pETAR 

9 ZF 

iPCNF 

9 ZC 

pPCNC 

, WF B 

stffhp 

COMMON 

rJFFLP 
1 /ALL3 / 

9 PCBLF 

t PC B L C 

9 PCBLOU 

it PC BLOB 

9 PCBLHP 

, PCBLLP 

1XP1 

t XWAF 

pXWAC 

, XBLF 

t XBLDU 

9 XH3 

9 dumsi 

, DUMS2 

2XT21 

9 XP 2 1 

tXH21 

9 XS2 1 

f T23 

» P23 

»H 23 

, S2 3 

3T24 

, P 2 4 

9 H24 

, S24 

9 T 25 

1 P25 

»H 25 

, S25 

4T28 

t P28 

9 H 28 

, S28 

9129 

, P29 

pH29 

, S29 

5WAD 

i WF D 

9 WG24 

» F AR 24 

9 E TAD 

9 DPDUC 

pBVPASS 

, DU MS 3 , 

6TS28 

r P S2 8 

i V 2 8 

9 A M2 8 

f TS29 

9 PS 29 

9 V29 

, AM29 , 

7 XT55 

,XP55 

9 XH55 

9 XS5 5 

9 XT25 

9 X P 2 5 

9XH25 

t XS25 , 

8XWFB 

t XWG55 

» XFAR55 

9 XWFD 

9 X WG 24 

9 XF AR 24 

9 XXPI 

, DUM8 , 

9T6 

»P6 

,H6 

9 S6 

f T 7 

9 P 7 

9 H 7 

, S 7 

$T 8 

COMMON 

» P 8 

/ AL 14 / 

9 H 8 

9 S 8 

fT 9 

9 P 9 

fH9 

* S9 

1WG6 

> WF A 

,WG7 

f FAR 7 

9 ETA A 

9 DP AF T 

p V 55 

, V2 5 

2PS6 

, V 6 

9 A M 6 

9 T S7 

9 P S7 

9 V7 

p AM7 

, AM25 

3TS8 

,PS 8 

, V 8 

9 AM 8 

t T S9 

9 PS9 

tV9 

, AM9 

4V A 

,FRD 

9 VJD 

iFGMD 

, V JM 

, FGMM 

,FGPD 

, FGPM 

5FGM 

t FGP 

t WFT 

, WGT 

t FART 

9 FG 

pFN 

, SFC 

6WA32 

9 OPWGDS 

, DPWING 

♦WA32DS 

9 A38 

t AM 38 

, V38 

»T38 

7H38 

> P 3 8 

1 T $3 8 

9 P S3 8 

9 T 39 

9 H39 

pP 39 

, T S39 

8 V 39 

p AM39 

r A 39 

9 BPR I NT 

tWG37 

p CVDtfNG 

,FGMWNG,FGPWMG, 

9FNWING 

9 FNMA I N 

, FWOVFN 

9 PS 3 9 

, FFOVFN 

9 FC OV FN 

.fmnofn 

P FNOVFDi 

SVJW 

»T22 

t P22 

9 H22 

9 S22 

,T50 

, P50 

p H50 


COMMON /ALL5 / 

1 S50 , WA22 ,ZI , PCN I ,CNI , PR ! ,ETA I ,WACI 

2TFFIP »CN I P ,E T ATIP,DHTCIP,DHTI ,BLIP f PCBL I P, PCN I GU 

3ZI0S , PC N ID S» PR l D$ , ETAI CS, WAIDS ,PRICF ,ETA IC F, WA ICF 

4TFIPDS,CNIPDS,ETIPDS,TFIPCF,CNIPCF,ETIPCF,DHIPCF,WAICDS 
5WAI » PC BL I , 8 L I , T 22 D S ,WA21 ,WG50 ,FAR50 ,A24 

6AM23 ,QUMSPL,FXFN2M,FXM2CP, AFTFAN, PUNT ,PCBLi D, P6DS AV 
7AM6DSV, ETAAS V, F AR 7S V , T4P BL ,T41 , FAN ,ISPOOL 

COMMON /DYNZ IT R AN , T I ME , 0 T , TF , JTRAN , NSTEP ,TPR I NT , DTPR NT 
A8MIN=. 790378 
P3QP2D=14.07 
XKI=1.0 
XKP=. I 
YICC=3.D 

DEPV=P3/P2-P 3QP2D 

IF ( A8S ( OERV ) .LE. l.OE-5) DERV=0.0 
A8INT=ALINTR(24,DERV,YICC, 10000.0,- 1000 0. 0) *XKI 
A8PR0P=XKP*DEP.V 

2 A8=A8MIN+A8I NT+A8PR0P 

IF ( A 8 .GE. A8MIN.AN0. WF A .GT. 0.0) GO TO 3 
XEP V = 0. 0 

A 8 I NT =AL I NTR { 24 , XER V , YI CC ,0 • 0 ,0.0 >* XK I 
A8-A 8M I N 

3 CONTINUE 

IF ( WF A .LE. 1.0E-3) WFA=0.0 

RETURN 

END 


160 



APPENDIX D 


DEBUGGING PROCEDURES 

This appendix is intended to give the DYNGEN user some hints for debugging prob- 
lems which may occur in running the program. If the proper input variables are pro- 
vided by the user, trouble will usually not occur in running the design point (IDES=1) 
case. However, problems will often arise in obtaining solutions for off-design cases. 

One frequent source of trouble is going out of range on the component maps, usually the 
turbine. If this occurs, an appropriate error message will be printed out, for example, 

***** CNHP OFF MAP 

which indicates that the high-pressure-turbine speed parameter is out of range for the 
map supplied. The most obvious, and effective, way of remedying this problem is to 
extend the range of the maps. However, the user should take note if the engine is oper- 
ating beyond the performance limits of a component. 

Occasionally, trouble will occur in COMIX, CODUCT, or COAFBN when the pro- 
gram tries to calculate Mach numbers less than zero or greater than 0. 700. The error 
listing will contain COMMON blocks ALL1, ALL2, etc. , and the user should check 
variables such as AM55, AM6, AM7, AM23, and AM24 to see if they are negative or 
equal to 0. 700. If they are and if the problem was not initiated by a map -out- of- range, 
it may be possible to solve the problem by changing Mach numbers at the design point. 
For example, if AM55 goes negative for some off-design case, increasing AM55 at the 
design point will tend to raise the value of AM55 for all cases and help to avoid the 
problem. 

The Newton- Raphson method of solving simultaneous equations (appendix A) re- 
quires a matrix of approximate partial derivatives AE./AV., where AV. is an incre- 
mental change in the j variable and AE i is the resulting change in the i error. 

The size of AV- can be changed by the DYNGEN user, and this often is effective in 
solving convergence problems. In order to change the size of AVj, the user should 
change variables VDELTA and DELSAV from their nominal values of 1. E-4. These 
values are set by DATA statements in subroutine ENGBAL. 

The variable VRATIO, also found in ENGBAL, may sometimes help to solve con- 
vergence problems if it is set to some value less than its nominal value of 1.0. VRATIO 
controls the maximum step size in changing the iteration variables. 

The basic version of DYNGEN uses slightly less than 32 000 words of computer 
storage. If the user has a computer with a maximum storage capacity of 32 000 words, 
he will exceed that limit when attempting to add control system subroutines. Certain 
subroutines in the basic program can be omitted to save space. For example, if the 
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engine to be simulated has only a converging exhaust nozzle, subroutine CONDIV can be 
eliminated. Similarly, if the engine has only a converging-diverging nozzle, subroutine 
CONVRG can be eliminated. In all cases, a dummy subroutine, consisting only of a 
RETURN statement, must replace the omitted subroutine. Also, storage space can be 
omitted by deleting component maps which are not used, along with their associated 
storage locations (table I). 

A list of error messages in DYNGEN is given in the following table: 


Error message 

— 
Subroutine found in 

AN ERROR HAS BEEN FOUND IN (SUBROUTINE NAME) 

ERROR 

CHANGE TOO SMALL 

ENGBAL 

CNC OFF MAP 

COCOMP 

CNC WAS = , AND NOW = , CHECK PCNC INPUT 

COCOMP 

CNF OFF MAP 

COFAN 

CNF WAS - , AND NOW = , CHECK PCNF INPUT 

COFAN 

CNHP OFF MAP 

COHPTB 

CNI OFF MAP 

COINTC 

CNI WAS = , AND NOW = , CHECK PCNI INPUT 

COINTC 

CNIP OFF MAP 

COIPTB 

CNLP OFF MAP 

COLPTB 

COLUMN IS ZERO IN EMAT 

ENGBAL 

ERROR IN CONOUT INPUT 

CONOUT 

ERROR IN SYG 

SYG 

FAILED TO CONVERGE AFTER (NUMBER) LOOPS 

ERROR 

NO CONVERGENCE IN THERMO 

THERMO 

ROW IS ZERO IN EMAT 

ENGBAL 

TFFHP OFF MAP 

COHPTB 

TFFIP OFF MAP 

COIPTB 

TFFLP OFF MAP 

COLPTB 

THE ERROR IN (SUBROUTINE NAME) IS AT (NUMBER) 

ERROR 1 

THE WORD NOT FOUND IN COMMON ARRAY 

CONOUT 


*For subroutines COAFBN, COMIX, and CODUCT. 


The list contains the error messages in alphabetical order and also the subroutine in 
which the error message is generated. Most messages are self-explanatory; thus, the 
determination of the actual cause for the error message printout is left to the user. 

In the subroutines COAFBN, COMIX, and CODUCT, there are many implicit loops 
and as a result many calls to the ERROR routine. Therefore, as shown in the previous 
table, a special error message is given if an error occurs in one of these subroutines. 
The number given in this error message corresponds to a number which has been set 
into the subroutine in error. For example, before each call to ERROR in subroutine 
COAFBN, ICOAFB=l, 2, 3, . . . is set; then, if the error message in ERROR says, THE 
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ERROR IN COAFBN IS AT 2, the user need only look in subroutine COAFBN for the im- 
plicit loop at which ICOAFB=2 was set. The same procedure can be followed in subrou- 
tines COMIX and CODUCT, where the error indicators are ICOMIX and ICODUC, re- 
spectively. 
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APPENDIX E 


COMPARISON WITH GENENG AND GENENG II 

In addition to having transient capability, DYNGEN combines in one program the 
steady-state capabilities of GENENG and GENENG II. The following list summarizes 
the differences (apart from transient capability) between DYNGEN and those programs: 

(1) In order to conserve storage, DYNGEN uses NAMELIST input rather than Huff 
input. Only subroutine PUTIN needs to be modified to allow use of Huff input. 

(2) Subroutine MAPBAC, which changes the independent variable, has been deleted. 
Instead, subroutine SEARCH is used to extrapolate if values of CNHP, CNIP, or CNLP 
are out of range for the turbine maps. Error messages are still printed on UNIT08 if 
this occurs. 

(3) Additional error messages have been added to COAFBN, CODUCT, and COMIX 
(appendix D). 

(4) Calculations may be performed in SI units. 

(5) Unlike GENENG (but not GENENG II), LAFTBN=1 will not automatically result in 
IMCD=1. Similarly, IDBURN=1 will not automatically result in IDCD=1. 

(6) Unlike GENENG (but not GENENG II), subroutine FRATIO has been deleted. The 
user must supply his own values of CVMNOZ and CVDNOZ. These values are single- 
point inputs and not table lookups as in GENENG. 
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APPENDIX F 


A 

A 8 

a 

E 

AE 
f( ) 

< HP W 

h 

Ah 

I 

M 

N 

AN 

P 

R 

s 

T 

AT 

t 

At 

u 

V 

AV 

V 
w 
X 


SYMBOLS 

state matrix 

2 2 

main nozzle throat area, m (ft ) 

coefficient 

error variable 

change in error variable 

function 

power extracted, W (Btu/sec) 

enthalpy, J/kg (Btu/lbm) 

change in enthalpy, J/kg (Btu/lbm) 

2 2 

polar moment of inertia, kg-m (Btu-sec ) 

matrix of DEj/clVj 

rotor speed, rpm 

change in rotor speed, rpm 

pressure, N/m (atm) 

gas constant, J/kg-K (atm-ft'Vlbm-°R) 

Laplace transform variable, 1/sec 

temperature, K (°R) 

change in temperature, K (°R) 

time, sec 

time step, sec 

specific internal energy, J/kg (Btu/lbm) 

independent variable in Newton- Raphson iteration 

change in independent variable 

3 3 

component volume, m (ft ) 
mass flow rate, kg/sec (lbm/sec) 
independent variable 
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Y dependent variable 

y difference equation variable 

e parameter in difference equation 

A eigenvalue of differential equation 

M eigenvalue of difference equation 

$ state matrix 

Subscripts: 

C compressor 

f fuel flow 

i integer 

in into control volume 

j integer 

max maximum 

min minimum 

n integer 

out out of control volume 

r reference 

T turbine 

0 base value 

Superscripts: 

' denotes calculated quantity 

* denotes quantity modified by dynamic terms 

General symbols internal to program: Variables in program are formed by combining 
these symbols. 

Station numbers: See figures 1 to 11 for each type of engine. 

Thermodynamic property symbols: 

AM Mach number 

FAR fuel-air ratio 

H enthalpy, J/kg (Btu/lbm) 

P total pressure, N/m 2 (atm) 
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PS 

s 

T 

TS 

U 

V 


2 

static pressure, N/m (atm) 
entropy, J/kg-K (Btu/lbm-°R) 
total temperature, K (°R) 
static temperature, K (°R) 
internal energy, J/kg (Btu/lbm) 
velocity, m/sec (ft/sec) 


Component symbols: 

A, AFT afterburner 

B burner 

C inner compressor 

COM combustor 

D fan duct 

F first or fan compressor 

I intermediate (middle) compressor 

M core nozzle 

MAIN all but wing 

NOZ nozzle 

OB overboard 

T total 

THP inner (high pressure) turbine 

TIP middle (intermediate pressure) turbine 

TLP outer (low pressure) turbine 

WDUCT wing (third stream) duct 

WING, WNG wing (third stream) 


Engine symbols: 

BL bleed, kg/sec (lbm/sec) 

CN ratio of corrected speed to design corrected speed 

DHT turbine delta enthalpy, J/kg (Btu/lbm) 

DHTC turbine delta enthalpy (temperature corrected), (H in - H out )/ T i n » 

J/kg-K (Btu/lbm-°R) 
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DP 

pressure drop, AP/P 

ETA 

efficiency 

ETAR 

ram recovery, Pg/Pj 

HP EXT 

power extracted, W (hp) 

PCBL 

fractional bleed 

PCN 

percent of design shaft speed 

PR 

pressure ratio 

TFF 

turbine flow function, kg- VK-m 2 /N-sec (lbm- V°R-in. 2 /lbf-sec) 

WA 

airflow, kg/sec (lb m/sec) 

WF 

fuel flow, kg/sec (lbm/sec) 

WG 

gas flow, kg/sec (lbm/sec) 

Z 

ratio of pressure ratios 

Miscellaneous symbols: 

A 

area, m 2 (ft 2 ) 

ALTP 

altitude, m (ft) 

AM 

Mach number of aircraft 

BPRINT 

bypass ratio (wing duct air/core air) 

BYPASS 

bypass ratio (fan duct air/air entering intermediate compressor) 

C 

when following component symbol, signifies "corrected" 

CF 

when following component symbol, signifies "correction factor" 

CS 

ambient speed of sound, m/sec (ft/sec) 

CV 

nozzle velocity coefficient 

DEL 

delta degradation coefficient 

DOT 

time derivative 

DS 

design value 

DUM 

dummy value 

FCOVFN 

ratio of core thrust to net thrust 

FFOVFN 

ratio of fan thrust to net thrust 

FG 

gross thrust, N (lbf) 
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FGM momentum thrust, N (lbf) 

FGP pressure thrust, N (lbf) 

FMOVFN ratio of fan plus core thrust to net thrust 
FN net thrust, N (lbf) 

FNOVFD ratio of net thrust to design-point net thrust 
FRD ram drag, N (lbf) 

GU initial or guessed values 

ITRYS number of loops through engine before quitting 
LOOP variable counter 

LOOPER number of loops through engine counter 
PI standard pressure, N/m (atm) 

SFC specific fuel consumption, kg/N-hr (lbm/lbf-hr) 

TOLALL tolerance on convergence 
T1 standard temperature, K (°R) 

VA velocity of aircraft, m/sec (ft/sec) 

VJ jet velocity, m/sec (ft/sec) 

Input symbols: 

AFTFAN logical control for an aft- fan engine 
ALTP altitude, m (ft) 

AM Mach number of aircraft 

AM6 design afterburner entrance Mach number 

AM23 design ductburner entrance Mach number 

AM55 design low-pressure-turbine exit Mach number 

2 2 

A6 area of afterburner entrance (calculated from AM6), m (ft ) 

2 2 

A8 main nozzle throat area (can be changed at off design), m (ft ) 

2 2 

A28 fan duct nozzle throat area (see A8), m (ft ) 

2 2 

A38 wing duct nozzle throat area (see A8), m (ft ) 

CNHPDS design corrected speed - inner turbine 
CNIPDS design corrected speed - middle turbine 
CNLPDS design corrected speed - outer turbine 
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CVDNOZ 

CVDWNG 

CVMNOZ 

DELFG 

DELFN 

DELSFC 

DELT1 

DPAFDS 

DPCODS 

DPDUDS 

DPWGDS 

DT 

DTPRNT 

DUMSPL 

ETAA 

ETAADS 

ETABDS 

ETACDS 

ETAD 

ETAFDS 

ETAIDS 

ETAR 

ETHPDS 

ETIPDS 

ETLPDS 

FAN 

FXFN2M 

FXM2CP 

HPEXT 


nozzle thrust coefficient (duct) 

nozzle thrust coefficient (wing) 

nozzle thrust coefficient (core) 

gross-thrust delta degradation multiplier 

net- thrust delta degradation multiplier 

specific -fuel- consumption delta degradation multiplier 

correction to standard- day temperature, K (°R) 

afterburner design pressure drop, AP/P 

combustor design pressure drop, AP/P 

duct design pressure drop, AP/P 

wing duct design pressure drop, AP/P 

solution time step for transients, sec 

time step for output listings, sec 

logical control for spool which does not change temperature or pressure of 
air 

afterburner efficiency (not required) 
afterburner efficiency at design 
combustor efficiency at design 
inner-compressor adiabatic efficiency at design 
ductburner combustor efficiency 

front (outer) compressor adiabatic efficiency at design 

intermediate (middle) compressor adiabatic efficiency at design 

inlet pressure recovery (ram recovery), P2/P1 

high-pressure-(inner) turbine design adiabatic efficiency 

intermediate-pressure-(middle) turbine design adiabatic efficiency 

low-pressure-(outer) turbine design adiabatic efficiency 

logical control which indicates fan or turbojet 

logical control for boosted fan 

logical control for supercharged compressor 

power extraction, W (hp) 
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IAFTBN 

IAMTP 

IDBURN 

IDCD 

IDES 

IDUMP 

IGASMX 

IMCD 

IN IT 

ISPOOL 

ITRAN 

ITRYS 

JTRAN 

MODE 

NOZFLT 

PCBLC 

PCBLDU 

PCBLF 

PCBLHP 

PCBLID 

PCBLIP 

PCBLLP 

PCBLOB 

PCNC 

PCNCDS 

PCNF 

PCNFDS 


index on afterburning desired 

index on ram or inlet operation desired 

index on ductburning desired 

duct nozzle convergent-divergent when IDCD=1 (design or off design) 

index for design point; must be set equal to 1 to design engine; zeroed auto- 
matically 

index for dumping of error matrix 

index for mixed-flow or non- mixed-flow turbofans 

main nozzle convergent-divergent when IMCD=1 (design or off design) 

index for initializing guesses 

number of engine rotors 

index for initiating transients 

index for maximum number of iterations 

index which indicates a transient is in process 

independent variable designator for engine operation 

index for floating main or duct nozzle 

ratio of compressor bleed to turbines to compressor airflow 

ratio of compressor bleed leaked into fan duct to total compressor bleed flow 

ratio of bleed from outer compressor to fan airflow dumped overboard (i. e. , 
leakage) 

fraction of PCBLC used for high-pressure (inner) turbine (cooling) 

ratio of design value of air into wing to air into core; zero for two-stream 
engine 

fraction of PCBLC used for intermediate-pressure turbine (cooling) 

fraction of PCBLC used for low-pressure (outer) turbine (cooling) 

inner-compressor bleed compressor airflow (overboard for customer use) 

inner-compressor shaft speed as a percent of design 

design inner-compressor corrected speed as a percent of design 

outer-compressor shaft speed as a percent of design 

design outer-compressor corrected speed as a percent of design 
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PCNI 

PCNIDS 

PMIHP 

PMIIP 

PMILP 

PRCDS 

PRFDS 

PS55 

P2 

SI 

TF 

TFHPDS 

TFIPDS 

TFLPDS 

TOLALL 

T2 

T4 

T7 

T24 

T4DS 

T7DS 

VAFTBN 

VCOMB 

VCOMP 

VFAN 

VFDUCT 

VHPTRB 

VINTC 

VIPTRB 


intermediate-compressor shaft speed as a percent of design 
design intermediate-compressor corrected speed as a percent of design 
high-pressure-rotor polar moment of inertia, kg-m 2 (slug-ft 2 ) 
intermediate-pressure-rotor polar moment of inertia, kg-m 2 (slug-ft 2 ) 
low-pressure-rotor polar moment of inertia, kg-m 2 (slug-ft 2 ) 
design inner- compressor pressure ratio 
design outer-compressor pressure ratio 

p 

static pressure at low-pressure-turbine exit, N/m (atm) 

p 

fan inlet total pressure, N/m (atm) 

logical control for SI or U.S. customary (English) units 

final time for transient, sec 

design inner-turbine flow function, kg- Vk -m 2 /N-sec (lbm- V°ft-in. 2 /lbf-sec) 

design intermediate-turbine flow function, kg- VK-m 2 /N-sec ^lbm- V°R -in. 2/ 
lbf-sec) 

design outer-turbine flow function, kg- VK-m 2 /N-sec (lbm- V°R-in. 2 /lbf-sec) 

tolerance on error matrix 

fan inlet total temperature, K (°R) 

combustor exit temperature, K (°R) 

afterburner exit temperature, K (°R) 

ductburner exit temperature, K (°R) 

design combustor exit temperature, K (°R) 

design' afterburner exit temperature, K (°R) 

o o 

control volume associated with afterburner, m (ft ) 

O O 

control volume associated with combustor, m (ft ) 

O O 

control volume associated with high-pressure compressor, m (ft° ) 
control volume associated with fan, m (ft ) 

Q O 

control volume associated with fan duct, m (ft ) 

o o 

control volume associated with high-pressure turbine, m (ft ) 
control volume associated with intermediate compressor, m 2 (ft 2 ) 
control volume associated with intermediate-pressure turbine, m 2 (ft 2 ) 
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3 3 

VLPTRB control volume associated with low-pressure turbine, m (ft ) 

3 3 

VWDUCT control volume associated with wing duct, m (ft ) 

WACCDS design inner-compressor corrected airflow, kg/sec (lbm/sec) 

WAFCDS design outer-compressor corrected airflow, kg/sec (lbm/sec) 

WAICDS design intermediate-compressor corrected airflow, kg/sec (lbm/sec) 

WFA fuel flow rate to afterburner (LAFTBN=2 only), kg/sec (lbm/sec) 

WFB fuel flow rate to main burner (MODE=2 only), kg/sec (lbm/sec) 

WFBDS design fuel flow rate to main burner (MODE=2 only), kg/sec (lbm/sec) 

XNHPDS high-pressure- rotor design speed, rpm 

XNIPDS intermediate-pressure- rotor design speed, rpm 

XNLPDS low-pressure- rotor design speed, rpm 

ZCDsT) design ratio of inner-compressor, fan-compressor, and middle- 

ZFDS, L compressor pressure ratios, respectively; equals pressure .ratio at de- 

ZIDS I sign point on design speed line minus value of pressure ratio at lowest 

point on speed line, divided by high (surge) value minus low value of 
pressure ratio on design speed line 

Output symbols: 1 

. 2, fr>2>\ 

A area, m (ft ) 

ALTP altitude, m (ft) 

AM Mach number 

BLC bleed flow out of compressor, kg/sec (lbm/sec) 

BLDU bleed flow into fan duct, kg/sec (lbm/sec) 

BLF bleed flow out of fan (dumped overboard), kg/sec (lbm/sec) 

BLHP bleed flow into high-pressure turbine, kg/sec (lbm/sec) 

BLI airflow into third stream, kg/sec (lbm/sec) 

BLIP bleed flow into intermediate-pressure turbine, kg/sec (lbm/sec) 

BLLP bleed flow into low-pressure turbine, kg/sec (lbm/sec) 

BLOB bleed flow lost overboard (customer bleed), kg/sec (lbm/sec) 

BPRINT ratio of airflow into wing duct to airflow into core 

1 Some symbols, such as T4, are followed by station numbers; see appropriate fig- 
ure for each engine in order to determine station locations. 
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BYPASS 


CNC 

CNF 

CNHP 

CNHPCF 

CNI 

CNIP 

CNIPCF 

CNLP 

CNLPCF 

CVDNOZ 

CVDWNG 

CVMNOZ 

DHHPCF 

DHIPCF 

DHLPCF 

DHTC 

DHTCHP 

DHTCIP 

DHTCLP 

DHTF 

DHTI 

DPAFT 

DPCOM 
DPDUC 
DPWING 
ETA A 


ratio of airflow into fan duct to airflow into intermediate compressor 

corrected shaft speed - inner compressor 

corrected shaft speed - fan 

corrected shaft speed - high-pressure turbine 

corrected speed - high-pressure-turbine correction factor 

corrected shaft speed - intermediate compressor 

corrected shaft speed - intermediate-pressure turbine 

corrected speed - intermediate-pressure-turbine correction factor 

corrected speed - low-pressure turbine 

corrected speed - low -pressure- turbine correction factor 

velocity coefficient of fan nozzle 

velocity coefficient of wing nozzle 

velocity coefficient of core nozzle 

high -pres sure- turbine delta enthalpy correction factor 

intermediate-pressure-turbine delta enthalpy correction factor 

low-pressure-turbine delta enthalpy correction factor 

work done by high-pressure turbine, J/kg (Btu/lbm) 

enthalpy change temperature corrected - high-pressure turbine, J/kg-K 
(Btu/lbm-°R) 

enthalpy change temperature corrected - intermediate-pressure turbine, 
J/kg-K (Btu/lbm-°R) 

enthalpy change temperature corrected - low-pressure turbine, J/kg-K 
(Btu/lbm-°R) 

work done by low-pressure turbine, J/kg (Btu/lbm) 

work done by intermediate-pressure turbine, J/kg (Btu/lbm) 

(AP/P)a£terburner 

( AP/P ) com b u stor 


(AP/P) 


fan duct 


(AP/P) 


wing duct 


afterburner efficiency 
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ETAB 

ETABCF 

ETAC 

ETACCF 

ETAD 

ETAF 

ETAFCF 

ETAI 

etaicf 

ETATHP 

ETATIP 

ETATLP 

ETHPCF 

ETIPCF 

ETLPCF 

FAR 

FCOVFN 

FFOVFN 

FG 

FGM 

FGMWNG 

FGP 

FGPWNG 

FMNOFN 

FN 

FNMAIN 

FNOVFD 

FNWING 

FRD 

FWOVFN 


combustor efficiency 
combustor efficiency correction factor 
inner- compressor adiabatic efficiency 
inner-compressor efficiency correction factor 
ductburner efficiency 
fan adiabatic efficiency 
fan efficiency correction factor 
intermediate-compressor adiabatic efficiency 
intermediate-compressor efficiency correction factor 
high-pressure-turbine adiabatic efficiency 
intermediate-pressure-turbine adiabatic efficiency 
low-pressure-turbine adiabatic efficiency 
high-pressure-turbine efficiency correction factor 
intermediate-pressure-turbine efficiency correction factor 
low-pressure-turbine efficiency correction factor 
fuel-air ratio 

ratio of core thrust to net thrust 
ratio of fan thrust to net thrust 
gross thrust, N (lbf) 

momentum thrust of all but wing, N (lbf) 

momentum thrust of wing, N (lbf) 

pressure thrust of all but wing, N (lbf) 

pressure thrust of wing, N (lbf) 

ratio fan thrust plus core thrust to net thrust 

net thrust, N (lbf) 

net thrust of all but wing, N (lbf) 

ratio of net thrust to design-point net thrust 

net thrust of wing, N (lbf) 

ram drag, N (lbf) 

ratio of net wing thrust to net thrust 
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HPEXT 

P 

PCBLC 

PCBLDU 

PCBLF 

PCBLHP 

PCBLI 

PCBLIP 

PCBLLP 

PCBLOB 

PCNC 

PCNF 

PCNI 

PRC 

PRCCF 

PRF 

PRFCF 

PRI 

PRICF 

PS 

SFC 

T 

T3DS 

T21DS 

T22DS 

TFFHP 

TFFIP 

TFFLP 


power extracted, W (hp) 
total pressure, N/m 2 (atm) 

fraction of compressor exit air bled for cooling or lost to cycle 
fraction of bleed air out of compressor which leaks into fan duct 
fraction of fan exit airflow lost overboard 

fraction of compressor bleed air put into high-pressure turbine 

fraction of intermediate-compressor air which goes into third stream 

fraction of compressor bleed air put into intermediate-pressure turbine 

fraction of compressor bleed air put into low-pressure turbine 

fraction of bleed air out of compressor lost overboard 

inner-compressor shaft speed as percent of design 

fan-compressor shaft speed as percent of design 

intermediate-compressor shaft speed as percent of design 

pressure ratio of inner compressor 

pressure-ratio-of-inner-compressor correction factor 

pressure ratio of fan 

pressure- ratio-of-fan correction factor 

pressure ratio of intermediate compressor 

pressure-ratio-of- intermediate- compressor correction factor 

o 

static pressure, N/m (atm) 

specific fuel consumption, kg/N-hr (lbm/lbf-hr) 

total temperature, K (°R) 

design exit temperature of inner compressor, K (°R) 
design exit temperature of intermediate compressor, K (°R) 
design exit temperature of fan, K (°R) 

high-pressure-turbine flow function, kg-VK-m 2 /sec-N (ibm- V°R-in. 2 / 
sec-lbi) 

intermediate-pressure-turbine flow function, kg- VK-m 2 /sec-N 
^ib m- V^R- in . 2 /s ec - lbf ) 

low -pressure-turbine flow function, kg-VK-m 2 /sec-N ^bm-V°R-in. 2 / 
sec-lbf) 


176 



TFHPCF 

TFIPCF 

TFLPCF 

TIME 

V 

VA 

VJD 

VJM 

VJW 

WA 

WAC 

WACC 

WACCF 

WA3CDS 

WAC I 

WAD 

WAF 

WAFC 

WAFCF 

WAI 

WAICF 

WFA 

WFB 

WFD 

WFT 

WG 

WGT 

ZC 

ZF 

ZI 


high-pressure-turbine flow function correction factor 
intermediate-pressure-turbine flow function correction factor 
low-pressure-turbine flow function correction factor 
time, sec 

velocity, m/sec (ft/sec) 

velocity of aircraft, m/sec (ft/sec) 

fan duct exhaust velocity, m/sec (ft/sec) 

core exhaust velocity, m/sec (ft/sec) 

wing duct exhaust velocity, m/sec (ft/sec) 

airflow, kg/sec (lb m/sec) 

inner-compressor airflow, kg/sec (lbm/sec) 

inner-compressor corrected airflow, kg/sec (lbm/sec) 

inner- compressor corrected airflow correction factor 

corrected airflow in combustor at design, kg/sec (lbm/sec) 

intermediate-compressor corrected airflow, kg/sec (lbm/sec) 

fan duct airflow, kg/sec (lbm/sec) 

fan airflow, kg/sec (lbm/sec) 

fan corrected airflow, kg/sec (lbm/sec) 

fan corrected airflow correction factor 

intermediate-compressor airflow, kg/sec (lbm/sec) 

intermediate-compressor corrected airflow correction factor 

fuel flow rate to afterburner, kg/sec (lbm/sec) 

fuel flow rate to combustor, kg/sec (lbm/sec) 

fuel flow rate to ductburner, kg/sec (lbm/sec) 

total fuel flow rate, kg/sec (lbm/sec) 

gas flow rate, kg/sec (lbm/sec) 

total gas flow rate, kg/sec (lbm/sec) 

ratio of inner-compressor pressure ratios 

ratio of fan pressure ratios 

ratio of intermediate-compressor pressure ratios 



Control system symbols (figs. 18 and 20): 

A8MIN minimum main nozzle throat area, m 2 (ft 2 ) 

EACL acceleration error 

EXNL speed error 

MAX function whose output is equal to largest input 

MIN function whose output is equal to smallest input 

PCNFDM commanded rotor speed, percent 

PHI output of acceleration schedule, kg-m 2 /N-sec (lbm-in. 2 /lbf-sec) 

P3M sensed P3, N/m 2 (atm) 

P3QP2D commanded compressor pressure ratio 

T21M sensed T21, K (°R) 

WFBACL acceleration fuel flow, kg/sec (lbm/sec) 

WFOP3L lower limit on WFB/P3, kg-m 2 /N-sec (lbm-in. 2 /lbf-sec) 

WFOP3U upper limit on WFB/P3, kg-m 2 /N-sec (lbm-in. 2 /lbf-sec) 

XNHM sensed core speed, rpm 

XNHP core speed, rpm 

XNLDEM commanded fan speed, rpm 

XNLM sensed fan speed, rpm 

XNLP fan speed, rpm 

YF metering valve position 

YFACL metering valve position for accelerations 

YFB metering valve position feedback 

YFDOT time derivative of metering valve position 
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TABLE I. - COMPONENT MAP SPECIFICATION 


[DYNGEN is supplied with storage locations and dummy maps for all components. 
The user may supply maps for a particular engine and leave the maps for un- 
used components in the simulation. ] 


Engine 

configu- 

ration 

Component map* 

BLKFAN 

BLKINT 

BLKCMP 

C MB DAT 

HPTDAT 

1PTDAT 

lptdat 

a 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

Yes 

b 











No 



2 














c 











No 



d 











Yes 



e 



No 







No 



f 



Yes 







Yes 



g 2 



Yes 







No 



h 



No 







No 



i 



Yes 







Yes 



3 



No 






f 

No 



k 



No 

No 



No 

No 




*A "Yes” entry means that component map must be specified. A r, No M entry 
means that component map need not be specified and storage space may be 
deleted. However, if storage space is not deleted and BLOCK DATA are 
supplied for components which are not used, calculations are not affected. 

Engine configurations c and g (figs. 3 and 7) have intermediate and core 
compressors physically attached. Combination is driven by intermediate- 
pressure turbine. Calculation bypasses routine which calculates high- 
pressure-turbine performance but transfers turbine performance data from 
this routine into that of intermediate-pressure turbine to represent turbine 
performance. Since intermediate-pressure turbine speed is set by speed 
of intermediate compressor, which also sets speed of combined compressors, 
this procedure is necessary. In these cases, COIPTB uses COMMON/ 
HTUR13/, which is high-pressure- turbine data. 
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TABLE I[. - INPUTS FOR DESIGN POINTS 



ORIGINAL PAGE IS 
OF POOR QUALITY 


PRECEDING PAGE BLANK NGT FILMED 




ORIGINAL PAGE IS 
OF POOR QUALITY! 



TABLE III. - PROGRAM INDICES 


Name 

Value 

Features* 

Purpose 



1 

2 

3 

4 


IDES 

0 

X 




Off-design case 


1 

X 




Design-point case 

MODE 

0 


X 

X 


Specify T4 


1 



X 


Specify PCNC 


2 


X 

X 


Specify WFB 


3 



X 


Specify PCNF 

IN IT 

0 

X 

X 



Will call GUESS 


1 

X 

X 



Will not call GUESS 

IDUMP 

0 


X 

X 


Will not print stored messages 


1 


X 

X 


Will print stored messages after errors 


2 


X 

X 


Will print stored messages after every point 

IAMTP 

0 


X 

X 


Input AM, ALTP; military-specification ETAR will be used 


1 


X 

X 


Input AM, ALTP, ETAR 


2 


X 

X 


Input AM, ALTP, DELT1; military-specification ETAR will be used 


3 


X 

X 


Input AM, ALTP, P2 


4 


X 

X 


Input P2, T2 


5 


X 

X 


Input AM, ALTP; ETAR schedule stored in RAM2 

IGASMX 

-1 



X 


Separate flow, input AM6 


0 



X 


Separate flow, A6 = A55 


1 



X 


Mixed flow, A6 = A25 + A55 


2 



X 


Mixed flow, input AM6 

ID BURN 

0 

X 




No ductburning 


1 

X 



X 

Ductburning, input T24 


2 

X 



X 

Ductburning, input WFD 

IAFTBN 

0 

X 




No afterburning 


1 

X 



X 

Afterburning, input T7 


2 

X 



X 

Afterburning, input WFA 

ID CD 

0 


X 

X 


Convergent duct nozzle 


1 


X 

X 


Convergent-divergent duct nozzle 

IMCD 

0 


X 

X 


Convergent main nozzle 


1 


X 

X 


Convergent- divergent main nozzle 

NOZFLT 

0 

X 




A9 and A 29 are held constant 


1 

X 



X 

A9 will be set for fully expanded flow 


2 

X 



X 

A 29 will be set for fully expanded flow 


3 

X 



X 

A9 and A29 will be set for fully expanded flow 

ITRYS 

N 2 



X 


Number of iterations before calling ERROR 

TOLALL 

X 3 



X 


Tolerance which errors must satisfy for convergence 

SI 

T 



X 


Input and output in SI units 


F 



X 


Input and output in English units 

ITRAN 

0 


X 

X 


A steady-state point 

l 

1 



X j 


The initial condition for a transient 


1 - Automatically returns to zero after each point. 

2 - Can be used for design or off design. 

3 - Value remains as input unless changed by new input. 

4 - A setup case must be run where all components are matched; then the identical case can be run using 

these options. 

^UBer- specified value; default value is 0 
User-specified value; default value is 0. 
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TABLE IV. - INPUTS FOR OFF-DESIGN POINTS 


Variable 

Units or type 

Definition 

Variable 

Units or type 

Definition 

ITRYS 


Index for maximum number of iterations 

ETAD 


4 

Ductburner efficiency 

5 

TOLALL 


Tolerance on error vector 

1AFTBN 


Index for afterburning 

TNIT 


Index for initializing point 

T7 

K (°R) 

Afterburner exit temperature 

. 5 

MODE 


Independent variable designator* 

WFA 

kg/sec (lbm/sec) 

Afterburner fuel flow 

T4 

K (°R) 

Turbine inlet temperature* 

DELFG 


Correction factor on gross thrust 

PCNC 

WFB 

kg/sec (lbm/sec) 

Compressor speed* 
Combustor fuel flow* 

DELFN 

DELSFC 


Correction factor on net thrust 

Correction factor on specific fuel consumption 

PCNF 

IDUMP 

Fan speed* 

Index for dumping program messages 

CVDNOZ 

CVMNOZ 


Duct nozzle thrust coefficient 
Main nozzle thrust coefficient 

IAMTP 


2 

Index on ram or inlet operation 

CVDWNG 


Wing nozzle thrust coefficient 

ALTP 

m (ft) 

Altitude 2 

A6 

m 2 (ft 2 ) 

Afterburner entrance area 

AM 


2 

Mach number 

A38 

m 2 (ft 2 ) 

Wing nozzle throat area 

ETAR 


2 

Inlet pressure recovery 

A8 

m 2 (ft 2 ) 

Main nozzle throat area 

DELT1 


Correction to standard- day temperature^ 

A28 

m 2 (ft 2 ) 

Duct nozzle throat area 

P2 

N/m 2 (atm) 

2 

Fan inlet total pressure 

HPEXT 

W (hp) 

Power extracted from high-pressure turbine 

T2 

K (°R) 

2 

Fan inLet total temperature 

PCBLC 


, i 

Fraction of compressor airflow removed as bleed 
, . 6 

ID CD 

Index for converging -diverging duct nozzle 

PCBLDU 


Fraction of bleed going to fan duel 
K 

1MCD 


Index for converging -diverging main nozzle 

PCBLOB 


Fraction of bleed lost overboard 

... 6 

NOZFLT 


3 

Index for floating nozzle exit area 

PCBLHP 


Fraction of bleed going to high-pressure turbine ^ 

IDBURN 


4 

Index for ductburning 

PCBLIP 


Fraction of bleed going to intermediate-pressure turbine 

T24 

K (°R) 

4 

Ductburner exit temperature 

PCBLLP 


Fraction of bleed going to low-pressure turbine 

WFD 

kg/sec (lbm/sec) 

4 

Ductburner fuel flow 

PCBLF 


Fraction of fan airflow lost to cycle 


^Four basic options are available lor specifying off-design operating points: MODE 0, specify T4; MODE l, specify PCNC; MODE 2. specify WFB. MODE 3. 
sp6cify PCNF. 

2 1AMTP determines which inlet variables are to be specified. The following options are available: IAMTP 0 - User specifies ALTP and AM, standard day T1 and 
PI and military-specification ETAR will be calculated. IAMTP -1 - User specifies ALTP, AM, and ETAR; standard-day T1 and PI will be calculated. 
IAMTP.2- User specifies ALTP, AM, and DELT1; military -specification ETAR will be calculated; standard-day PI will be used; DELT1 will be added to 
standard-day Tl. IAMTP 3 - User specifics ALTP, AM, and P2; ETAR and standard- day T1 will be calculated. IAMTP -4 - User specifies T2 and P2. 

IAMTP -5 - User specifies ALTP and AM; ETAR is calculated from user-supplied table of ETAR as a function of AM located in subroutine RAM2; standard-day 

PI and Tl are calculated. 

3 ff idCD- 1 at design point, A29 will automatically be calculated to obtain fully expanded flow. However, to recalculate A29 for an off -design point. NOZt LT must 
be set equal to 2 or 3 in addition to specifying IDCD~1. Similarly, IMCD^l at design point means A9 will be calculated to obtain fully expanded flow; but to re- 
calculate A9 for an off-design case, NOZFLT must be set equal to 1 or 3 in addition to specifying IMCD-1. If NOZFLT 0, A9 and A29 will retain their previous 


4 The following options are available for duetburning: IDBURN^O, no ductburning; IDBURN,!, specify T24; IDBURN- 2, specify WFD. If IDBURN- 1 or IDDURN-2 is 
to be used, the user must also specify a value for ETAD. No parameters other than T24, WFD, and ETAD may be changed while running a ductburning case, 
unless program is in transient (ITRAN 1) mode. This restriction is necessary because, in steady-state mode, DYNGEN recalculates A28 to maintain operating 
point which was established in case immediately previous to ductburning case. 

®The following options arc available lor afterburning IAFTBN-0, no afterburning; 1AFTBN I, specify T7; IAFTBN 2. specify WFA. The user need not specify 
a value for ETAA since it is calculated automatically. No parameters other than T7 or WFA may be changed while running an afterburning case, unless program 
is in transient (ITRAN 1) mode. This restriction is necessary because, in steady-slate mode, DYNGEN recalculates A8 to maintain operating point which was 
established in case immediately previous to afterburning case, 

^Bleed distribution in engine is governed by following equations: 


BLF - PCBLF *WAF 


where BLF is fan flow lost overboard. 


BLC PCBLC+WAC 


where BLC is compressor bleed How, which is distributed as follows; 

BLDU - PCBLDU*BLC 
BLOB PCBLOB*BLC 
BLHP PCBLHP*BLC 
BLIP PCBL1P*BLC 
BLLP - PCBLLP *BLC 

PCBLDU + PCBLOB + PCBLHP t PCBLIP + PCBLLP must equal 1 to maintain conservation of flow. 
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TABLE V. - TRANSIENT INPUTS 
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Figure L - Three-spool, three-stream turbofan engine {type a). 
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Figure 2. - Two-spool, three-stream boosted-fan engine (type b). 






















Compressor I J I Combustor I 4 



Nozzle P n 


Guessed variables, Vj 

Error variables, E| 

Speed, N 

Compressor pressure ratio, pyp 2 
Turbine flow function, w^T 

Power, w c Ah c -w T Ah T 

Turbine flow function, (* 4 ff 4 /p 4 )- (* 4 v'T 4 ^P 4 ) 

Nozzle pressure, P 7 - p‘ 7 


Figure 12. - Steady-state engine calculations for a turbojet. 


High pressure ratio, PR h jg h 


■ Constant corrected speed, CN 

Constant efficiency, ETA 


Design pressure ratio, PR des 
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N - Low pressure ratio, PR. r 


Corrected airflow, WAC 

Rgure 13. Example of specific fan-compressor map. Z - (PR X - PR| 0W )/(PR h j h - PR| 0W ). 









Afterburner combustion efficiency 
degradation, percent 



Ratio of fuel -air ratio to design fuel -air ratio 

(a) Generalized afterbu rner combustion efficiency as function of 
fuel -air ratio. 



Ratio of afterburner Inlet Mach number to design Ratio of afterburner inlet total pressure to design afterburner 

afterburner inlet Mach number inlet total pressure 

lb) Efficiency correction factor as function of afterburner 10 Efficiency correction factor as function of afterburner 

inlet Mach number. i n,e * ^ al pressure. 

Figure 16. - Example of generalized afterburner combustion efficiency performance map. 
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Time, sec 

Figure 17. - Response of three-spool turbofan to fuel flow step. 



Figure 18. - Twer spool turbofan speed control 





















